Arkadaşlar merhaba programımı yaparken lazım oldu bende şöyle basit bir kod hazırladım
Aslında formun konumunu bulmak için me.location komutuda iş görüyor fakat saçma sapan bir değer olarak veriyor bunu x y olarak ayırdım
Dim x, y As New Label
Private Sub konumbul()
konum = Me.Location.ToString
konum = konum.Replace("{X=", "")
konum = konum.Replace("Y=", "")
konum = konum.Replace("}", "")
x.Text = konum
y.Text = konum
x.Text = x.Text.Remove(x.Text.IndexOf(","))
y.Text = y.Text.Remove(0, y.Text.IndexOf(",") + 1)
End Sub
Sonrasında
konumbul() komutu ile direk konumunuzu bulabilirsiniz örneğin
konumbul komutundan sonra denemek için
MsgBox("x = " & x.Text & " y = " & y.Text) yazarak görebilirsiniz
Aslında formun konumunu bulmak için me.location komutuda iş görüyor fakat saçma sapan bir değer olarak veriyor bunu x y olarak ayırdım
Dim x, y As New Label
Private Sub konumbul()
konum = Me.Location.ToString
konum = konum.Replace("{X=", "")
konum = konum.Replace("Y=", "")
konum = konum.Replace("}", "")
x.Text = konum
y.Text = konum
x.Text = x.Text.Remove(x.Text.IndexOf(","))
y.Text = y.Text.Remove(0, y.Text.IndexOf(",") + 1)
End Sub
konumbul() komutu ile direk konumunuzu bulabilirsiniz örneğin
konumbul komutundan sonra denemek için
MsgBox("x = " & x.Text & " y = " & y.Text) yazarak görebilirsiniz