View Full Version : نوشتن متن در مختصات مشخص
ABERTINO
پنج شنبه 22 فروردین 1387, 14:39 عصر
باسلام به دوستان
می خواستم بدونم چطور میشه روی فرم در یه مختصات x,y یه متن دلخواه رو نوشت
می دونم که میشه با دستور print متن رو روی فرم نوشت ولی محل نوشتن رو نمیشه کنترل کرد
اگه کسی روشی می دونه لطفاً بگه
vbhamed
پنج شنبه 22 فروردین 1387, 19:23 عصر
سلام
Form1.CurrentX = 500
Form1.CurrentY = 300
Form1.Print "This is a test"
saied_hacker
جمعه 23 فروردین 1387, 23:17 عصر
سلام من اومدم این کاو بکنم نشد؟
Dim t As Boolean, xx, yy As Single
Private Sub Command1_Click()
If t = False Then
t = True
Form1.Caption = "T"
Else
t = True
Form1.Caption = "F"
End If
End Sub
Private Sub Form_Load()
Form1.Caption = "F"
t = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = X
Form1.CurrentX = xx
Form1.CurrentY = yy
If Button = vbLeftButton Then
If t = True Then
a = InputBox("Enter Text", "", "")
Me.Print a
End If
End If
End Sub
کار می کنه ولی در جای معین متنو قرار نمی ده
ممنون
vbhamed
شنبه 24 فروردین 1387, 09:42 صبح
سلام
اینم اصلاح شده برنامه شما
اشکالتون این بود که تو خط سوم نوشتین yy = X در صورتیکه باید باشه yy = Y هرچند اصلا نیازی به اونا نیست
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xx = X
yy = X
Dim t As Boolean
Private Sub Command1_Click()
If t = False Then
t = True
Form1.Caption = "T"
Else
t = True
Form1.Caption = "F"
End If
End Sub
Private Sub Form_Load()
Form1.Caption = "F"
t = False
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
If Button = vbLeftButton Then
If t = True Then
a = InputBox("Enter Text", "", "")
Me.Print a
End If
End If
End Sub
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.