Abd Al-Rahman
New Member
سلام،من تعداد نا معلومی msflexgrid در برنامم نیاز دارم. چطور می تونم با نوشتن کد در برنامه msflexgrid ایجاد کنم؟
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 عزیز.سال نو مبارک،إن شاء الله سلامت و پیروز باشید
از پاسخ تون ممنونم ولی راستش متوجه نشدم چطور باید ازش استفاده کنم.لطفا راهنمائیم کنید.
با تشکر فراوان
Private [B]WithEvents[/B] [B]a[/B] As MSFlexGrid
Private Sub Form_Load()
End Sub
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
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