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:
    http://docs.yahoo.com/info/terms/
 



Kirim email ke