Printable View
سلام
یه برنامه هست که طول و عرض مستطیل رو میگیره و رو صفحه رسمش میکنه
من زیاد متوجهش نشدم اما خب این برنامه رو تا اونجایی که بلد بودم نوشتم لطف کنید بگید مشکلش از چیه؟:44:
[PHP]Private Sub Command1_Click()
Dim a, b As Integer
a = Text1.Text
b = Text2.Text
X1 = a
Y1 = b
Shape1.Height = X1
Shape1.Width = Y1
Print Shape1
End Sub[/PHP]
دوست عزيز برنامتون انگاري از بيخ و بن غلطهنقل قول:
براي رسم مستطيل از متد line استفاده كنيد
مثلا
me.line ( 100,100)-(500,500),VBRed,B
موفق باشيد
البته مي تونيد از تابع Rectangle كتابخانه gdi32 هم استفاده كنيد...!
فراخواني ش به اين شكل ه...!
اين هم يه مثال...! :کد:Declare Function Rectangle Lib "gdi32" Alias "Rectangle" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
(اين كد ها رو تو قسمت كد نويسي پرو‍ژه تون قرار بديد...!)
موفق باشيد...!کد:
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Sub Form_Load()
Me.ScaleMode = vbPixels
End Sub
Private Sub Form_Paint()
Call Rectangle(Me.hdc, 10, 10, 20, 20)
End Sub
راه شما راه عجیبیه:18:
اولین باریه که این نوع حقه زدن رو میبینم ولی اگه همین رو میخواین این کد اطلاح شده برنامه شماالبته اول شما باید یه shape مستطیل بکشید و در صفحه قرار بدید و visible اون رو false کنید
کد:Private Sub Command1_Click()
Dim a, b As Integer
a = Text1.Text
b = Text2.Text
X1 = a
Y1 = b
shape1.visible=true
Shape1.Height = X1
Shape1.Width = Y1
End Sub