سؤال مهم فى انشاء زر

ارجوا الافادة

أعتقد أن سؤالك غير مفهوم

حلك بسيط جدا جدجدااااااااااااا

شكرا جزيلا

اقتباس

اريد عند الضغط على اسم الصنف داخل الفليكس جريد يتحول ال caption الخاص بالزر الى اسم الصنف الذى تم الضغط علية فى الفليكس جريد

Private Sub MSFlexGrid1_Click()
Command1.Caption = MSFlexGrid1.Text
End Sub

اقتباس

الاهم هو كيف عند الضغط على ذلك الزربعد ذلك يظهر لى داخل text1 قيمة السعر الخاص بهذا الصنف الذى تم الضغط عليه فى الفليكس جريد

Private Sub Command1_Click()
	Dim A
	A = Command1.Caption
	Data1.Recordset.FindFirst "fname = '" & A & "'"
End Sub

أخ ياسر محمدحسانين أرفقت مثال بسيط جداً أتمنى أن تنفعك فكرته

لكن حاول أن تستخدام فيه بحث أقوى من الموجود

NOUR_FLEX.zip

ماشاء الله عليك أخي المزمجر الله يزيدك

شكرا جزيلا اخى الكريم لك ولجميع الفائمين على هذا المنتدى الذى هو منارة لكل طالب علم

اقتباس

شكرا جزيلا اخى الكريم لك ولجميع الفائمين على هذا المنتدى الذى هو منارة لكل طالب علم

أهلاً بك أخي الكريم و بالتوفيق إن شاء الله

اسف يا جماعة لاعادة فتح الموضوع مرة اخرى

ولكن كيف بعد الخروج من البرنامج واعادة تشغيله مرة اخرى يحتفظ الزر بنفس الcaption

ثانيا افترض ان الامر ليس متعلقا ب command1 فقط ولكن هناك عدد كبير من المفاتيح نريد عمل نفس الموضوع لها فما الحل

ارحوا الافادة

يجب عليك حفظ caption في الرجستري أو ملف خارجي

أو يمكنك حفظ رقم الصنف فقط

اقتباس

اسف يا جماعة لاعادة فتح الموضوع مرة اخرى

لا داعي للأسف أخ ياسر المنتدى للتعلم !

اقتباس

ولكن كيف بعد الخروج من البرنامج واعادة تشغيله مرة اخرى يحتفظ الزر بنفس الcaption

هاي سهلة .

اقتباس

يجب عليك حفظ caption في الرجستري أو ملف خارجي

اقتباس

ثانيا افترض ان الامر ليس متعلقا ب command1 فقط ولكن هناك عدد كبير من المفاتيح نريد عمل نفس الموضوع لها فما الحل

سؤالك أظن أن له شقين

الاول كيف أحفظ التغيرات على جميع الازرار وهذا كما سبق في قول الاخ عبد العزيز

الثاني كيف أغير كابشن الكومند الاخرى (أظنها تحتاج تفكير )

سأحاول التعديل على المرفق

وانا فى الانتظار

السلام عليكم

Private Sub Form_Load()
	'كود الاسترجاع للتغيرات عند تحميل الفورم
	'nour123 متغير
	Dim nour123 As Control
	For Each nour123 In Me
		If TypeOf nour123 Is CommandButton Then
			nour123.Caption = GetSetting(App.EXEName, "Setting", nour123.Name, "لا يوجد تغيير")
		End If
	Next nour123
'انتبه
'هناك أزار ثابتة القيمة
'Command5
'أي أن زر خروج مثلاً لن تكون له قيمة مخزنة و انت لا تريد تغييره
'فهو في أول استعمال سيظهر فارغ
'لذلك:
'ضع كابشن جميع الازرار الثابتة هنا
Command2.Caption = "خروج"
End Sub

Private Sub Savechang()
	' كود حفظ التغيرات على عنوان الازار كلها
	Dim nour123 As Control
	For Each nour123 In Me
		If TypeOf nour123 Is CommandButton Then
			SaveSetting App.EXEName, "Setting", nour123.Name, nour123.Caption
		End If
	Next nour123
End Sub
Private Sub Command2_Click()
'عند إنهاء البرنامج اتصل بحفظ التغيرات
Call Savechang
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
'عند إغلاق الفورم اتصل بحفظ التغيرات
Call Savechang
End Sub

المثال بعد التعديل

أي تستطيع حفظ التغيرات على اسماء جميع الازرار في برنامجك

NOUR_FLEX_2.rar

الأخ الفاضل ...

أرجوا أن يفيدك هذا المثال فى ما تريد إنجازه

بأستخدام (MS-VB 6.0)

FlexButton.zip

1. يمكنك تغير حجم الزرار (الارتفاع والعرض) ليحتوى عدد أكبر/أقل من الزرار الياً دون التعديل فى الكود
   
2. يمكنك تغير حجم الإطار (تكبير أو تصغير) الذى به الزرار ليحتوى عدد أكبر/أقل من الزرار الياً دون التعديل فى الكود
   
3. يمكنك الضغط على Shift وأى زرار (أثناء التنفيذ) لحذف أى زرار
   
4. يمكنك وضع علامة أو إزالتها فى (Checkbox) أسفل الفلكس، لتفعيل او ايقاف تخليق الزرار
   
5. عند الخروج من البرنامج يتم حفظ الإعدادات اتوماتيكاً داخل قاعدة البيانات
   
6. عند الدخول للبرنامج مرة أخرى يتم استرجاع الإعدادات اتوماتيكاً داخل قاعدة البيانات
   

شكراً

ارجوا ان تقبلوا شكرو ولكن الشكر فليل

جزاك الله خيراُ أخي Usama El-Mokadem

و بارك الله فيك أخي ياسر محمدحسانين

و السلام عليكم