(vb6) تولید msflexgrid با کدنویسی چطوریه؟

[Abd Al-Rahman]

سلام،من تعداد نا معلومی msflexgrid در برنامم نیاز دارم. چطور می تونم با نوشتن کد در برنامه msflexgrid ایجاد کنم؟

 

[3minar]

یه مثال واستون میذارم، امیدوارم بدردتون بخوره!!

 

[Saeed Shahabi]

سلام 3minar عزیز.سال نو مبارک،إن شاء الله سلامت و پیروز باشید
از پاسخ تون ممنونم ولی راستش متوجه نشدم چطور باید ازش استفاده کنم.لطفا راهنمائیم کنید.
با تشکر فراوان

 

[Free Man]

با سلام ،

دوست عزیز سطح آشنایی شما با وی بی به چه میزان می باشد؟

 

[Saeed Shahabi]

ضمن عرض سلام،بنده مبتدی هستم و حدود یکسال و نیم هست که دارم با vb6 کار می کنم.در واقع برای انجام پروژه کارشناسیم(رشته تحصیلیم مهندسی آب هست) شروع به یادگیری vb6 کردم.

 

[Free Man]

با سلام ،

آموزش مرحله به مرحله ی VB6 و روش ساخت اشیا در زمان اجرا :

http://www.profsr.com/vb/vbintro.htm
http://www.vb6.us/
http://visualbasic.freetutes.com/learn-vb6/
http://www.vbtutor.net/vbtutor.html
http://www.tek-tips.com/faqs.cfm?fid=5257
http://pages.cpsc.ucalgary.ca/~saul/vb_examples/tutorial2/index.html
http://msdn.microsoft.com/en-us/library/7t9k08y5.aspx
http://msdn.microsoft.com/en-us/library/487y7874(VS.80).aspx

 

[3minar]

سلام 3minar عزیز.سال نو مبارک،إن شاء الله سلامت و پیروز باشید
از پاسخ تون ممنونم ولی راستش متوجه نشدم چطور باید ازش استفاده کنم.لطفا راهنمائیم کنید.
با تشکر فراوان

سلام دوست من. ببخشید اگه دیر جواب میدم. بعد از مدتی تازه اومدم. عید هست دیگهههه...

خب حالا مشکل شما کجاست. اگه کدی قابل فهم نیست بگید تا کمکتون کنم.

 

[Saeed Shahabi]

با سلام...
وقتی برنامه رو run می کنم ، یه form با کپشن form1 دیده می شه که یک کامند با کپشن start داره.با کلیک روی این کامند یه فرم دیگه دیده می شه که یه کامند با کپشن button داره و ضمنا یک لیبل داریم که دائما کپشنش تغییر می کنه ; از 1 تا ...
من چطور باید از این فایل اجرائی برای تولید msflex استفاده کنم؟
ممنون می شم اگه طوری توضیح بدید که یک برنامه نویس غیر حرفه ای متوجه بشه...

 

[the_king]

ابتدا یک پروژه جدید در ویژوال بیسیک ایجاد کنید.
در منوی Project گزینه ...Project Properties را انتخاب کنید و در زبانه Make آن، تیک گزینه
Remove information about unused ActiveX Controls را بردارید و OK نمایید.

هدف از اینکار این است که کامپایلر به دلیل آنکه شما در هنگام طراحی برنامه (نه زمان اجرا) کنترل MsFlexGrid ای
ایجاد نخواهید کرد، فرض را بر این می گیرد که کنترل مذکور در پروژه شما کاربردی ندارد و بطور خودکار
آنرا حذف می کند. با برداشتن تیک گزینه مذکور، از بروز این سوءتفاهم توسط کامپایلر جلوگیری می کنیم.

سپس Ctrl + T را فشار داده و Microsoft FlexGrid را در لیست پیدا کرده و تیک اش را بزنید و OK نمایید.
اکنون کد زیر را در ابتدای کد های فرم اضافه کنید تا یک کنترل با نام a تعریف شود :

Private [B]WithEvents[/B] [B]a[/B] As MSFlexGrid

Private Sub Form_Load()

End Sub

هدف از بکار گیری WithEvents این است که بتوانید رخداد های کنترل MsFlexGrid را بسادگی مدیریت کنید.
مثلا اکنون رخداد Click قابل مدیریت کردن است و نام کنترل a را در لیست رخداد ها خواهید یافت :

Private Sub [B]a_Click[/B]()

End Sub

برای ایجاد کردن کنترل به فرم در زمان اجرا از کد زیر استفاده کنید که بایستی به کد های قبلی اضافه شود
(کد های قبلی صرفا کنترل را تعریف می کنند) :

Private Sub Form_Load()
    Set [B]a[/B] = Controls.Add("MSFlexGridLib.MSFlexGrid", "[B]a[/B]")
    With [B]a[/B]
        .Move 300, 300, 3000, 1500
        .Visible = True
    End With
End Sub

دقت کنید که کنترل در حالت پیشفرض Visible اش False است و بایستی بطور دستی آنرا True نمایید.
همچنین موقعیت و ابعاد کنترل را مشخص نمایید.

یک مثال کامل با هر کلیک کردن رو کنترل MsFlexGrid یک سطر جدید به جدول اضافه می کند :

Option Explicit

Private WithEvents a As MSFlexGrid

Private Sub a_Click()
    If a.TextMatrix(1, 1) = "" Then
        a.TextMatrix(1, 1) = "1"
    Else
        a.AddItem vbTab & CStr(a.Rows)
    End If
End Sub

Private Sub Form_Load()
    Set a = Controls.Add("MSFlexGridLib.MSFlexGrid", "B")
    With a
        a.Move 300, 300, 3000, 1500
        a.Visible = True
    End With
End Sub