Ok dech.....makasihhhh yah......
dingin00hs <[EMAIL PROTECTED]> wrote:
bener kata mas eko
entah mo sampean pake apa, tapi kalo mo di pake bikin grafik bisa
nyoba fungsi ini. simple kok
'input:
' xpos : koordinat 0 sumbu x
' ypos : koordinat 0 sumbu y
' x : koordinat x thd sumbu
' y : koordinat y thd sumbu
'output:
' x : koordinat x dalam form
' y : koordinat y dalam form
Sub GetPos(ByVal xpos As Single, ByVal ypos As Single, _
ByRef x As Single, ByRef y As Single)
x = x + xpos
y = ypos - y
End Sub
contoh ;
posisi 0,0 di form adalah posisi 500,500
sampeyan pengen dapatkan koordinat 100,100 dan nggambar titik
kodenya :
x=100
y=100
GetPos 500, 500, x, y
Point x, y
moga bermanfaat...
--- In [email protected], "Eko Heri Susanto"
<[EMAIL PROTECTED]> wrote:
>
> > Saya mau tanya.....gn posisi x,y untuk vb dengan koordinat 0,0
itu
> kan ada di pojok kiri atas, bila saya ingin mengubah letak 0,0
> caranya gimana yah? misal saya mau posisi 0,0 di pojik kiri bawah
> atau di tengah2 gimana?
>
> Kalo di dotnet gak masalah anda tinggal main property anchor. Kalo
> di VB6 kayaknya gak bisa ya, kecuali anda sedikit main akal-akalan.
> Sebuah object baik itu form, command, textbox dan sebagainya
> pastilah memiliki property top, left, height, width, scaleheight
dan
> scalewidth. Anda bisa bermain-main dengan property tersebut.
>
> Ini contoh code untuk memposisikan sebuah object untuk mengikuti
> ukuran form
>
> Private Sub Form_Resize()
> On Error Resume Next
> CenterPosition Command1
> RightPosition Text1
> End Sub
>
> Private Sub CenterPosition(Obj As Object)
> Obj.Left = (Me.ScaleWidth - Obj.Width) \ 2
> Obj.Top = (Me.ScaleHeight - Obj.Height) \ 2
> End Sub
>
> Private Sub RightPosition(Obj As Object)
> Obj.Left = Me.ScaleWidth - Obj.Width
> Obj.Top = Me.ScaleHeight - Obj.Height
> End Sub
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
�-,()���()~~~~~~~~~~~~~~~~~~~~()���+,�,
+(�) �o�, ) [EMAIL PROTECTED] ( �o�,(�)-
,(��)(��),,)~~~~~~~~~~~~~~~~~~~(,,(��)(��),
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
