نوشتن متن در مختصات مشخص

[ABERTINO]

باسلام به دوستان
می خواستم بدونم چطور میشه روی فرم در یه مختصات x,y یه متن دلخواه رو نوشت
می دونم که میشه با دستور print متن رو روی فرم نوشت ولی محل نوشتن رو نمیشه کنترل کرد
اگه کسی روشی می دونه لطفاً بگه

[vbhamed]

سلام


Form1.CurrentX = 500
Form1.CurrentY = 300
Form1.Print "This is a test"

[saied_hacker]

سلام من اومدم این کاو بکنم نشد؟

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]

سلام
اینم اصلاح شده برنامه شما
اشکالتون این بود که تو خط سوم نوشتین 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