توي Vb6 چه جوري به كاربر همچين امكاني بديم كه با كليك كردن روي يك دكمه يه كنترل مثل Command بسازه ؟ من توي 2008 بلدم، توي 6 هم بلد بودم ولي يادم رفته :41:
منظورم استفاده از دستوراتي مثل Load نيست.
ساخت يك كنترل مجزا.
Printable View
توي Vb6 چه جوري به كاربر همچين امكاني بديم كه با كليك كردن روي يك دكمه يه كنترل مثل Command بسازه ؟ من توي 2008 بلدم، توي 6 هم بلد بودم ولي يادم رفته :41:
منظورم استفاده از دستوراتي مثل Load نيست.
ساخت يك كنترل مجزا.
فکر نکنم بشه
یا من بلد نیستم
چیزی که من یاد دارم همون لود هست
که باید یک کنترلت index دار باشه
دوست عزيز پست من رو خوب نخوندي ؟!!
من قبلا بلد بودم ولي الان يادم رفته.
معلومه كه ميشه.
اگه پيدا كنم حتما مينويسم تا همه ازش استفاده كنن.
سلام.
کد:Dim txt1 As TextBox
Set txt1 = Me.Controls.Add("VB.TextBox", "txt")
txt1.Visible = True
يه دنيا ممنونم. [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
يكي از مشكل هايي كه هنگام ساخت كنترل در vb6 هست اينه كه اگه بيشتر از يه دونه كنترل بسازيم خطا ميده، همچين مشكلي توي vb2008 نيست، آيا ميشه اين مشكل رو حل كرد ؟
فكر كنم به خاطر اينه كه اسم دو تا كنترل يكي ميشه.
سلام
من در حال انجام همین کار هستم به چند روش کار کردم اما هربار یک ارور تازه ای می ده
فكر كنم اين مشكل با اون دو تا راهي كه توي تاپيك ساخت InsertText مطرح شد برطرف بشه.نقل قول:
سلام
من در حال انجام همین کار هستم به چند روش کار کردم اما هربار یک ارور تازه ای می ده
سلام
ممنون در همین تایپیک یک مطلب کوچک اضافه کردم میتونی ببینی
این کدی که دادید برای تکست باکس هست. خواهشا لطفا.... اگه ممکنه کد برای ساخت winsock در زمان اجرای برنامه هم بدید.
ابتدا یک Command یا هر شی رو روی فرم بذارید !
Command یا شی رو به آرایه تبدیل کنید !
بعد این کد رو داخلش بنویسید :
کد:Private Sub cmd_Click(Index As Integer)
Load cmd(1)
cmd(1).Left = cmd(0).Left
cmd(1).Top = cmd(0).Top + cmd(0).Height
cmd(1).Visible = True
End Sub
* یادت نره حتما Visible رو مساوی True قرار بدی !
* برای ایجاد یکی دیگه هم کافیه بجای اون یک بنویسی دو و مختصاتش رو تنظیم کنی !
این کد هم برای ایجاد دو Command :نقل قول:
کد:
Set cmd1 = Me.Controls.Add("vb.Commandbutton", "cmd1")
cmd1.Visible = True
Set cmd2 = Me.Controls.Add("vb.Commandbutton", "cmd2")
cmd2.Left = 2000
cmd2.Visible = True
End Sub
* فقط کافیه اون 2 رو به 3 تغییر بدید تا کنترل جدید ایجاد بشه !
خیلی ممنون، ولی این تاپیک که واسه یکی دو سال پیشه :31:
البته خوبه چون شاید بعضیا بخوان بیان بخونن یاد بگیرن.
خیلی ممنون :11:
جدا ؟! :31:نقل قول:
اصلا به تاریخ پست ها توجه نکردم ... نمیدونم کی این تاپیک رو بالا آورد ! ( معذرت )
----
خواهش میکنم !