VB.NET: Mengatur Layout Control Tanpa Anchor dan Dock


Okaaay jadi begini loh Panji Abdi ^_^

Supaya ukuran dan posisi nya tetep compatible di banyak PC/Laptop dengan resolusi yang bermacam2 juga, ya itu kita patokannya adalah ukuran form.

UI:
Code:
Public Class frmParameter

    Sub ControlLayout()
        Try
            Button1.Top = Me.Height - 75
            DataGridView1.Top = 14
            DataGridView1.Height = Me.Height - 100
            DataGridView1.Width = Me.Width - 40
        Catch ex As Exception
            'kosong buat ignore error
        End Try
    End Sub


    Private Sub frmParameter_Load(ByVal sender As System.Object, _
                ByVal e As System.EventArgs) Handles MyBase.Load
        ControlLayout()
    End Sub

    Private Sub frmParameter_Resize(ByVal sender As Object, _
                ByVal e As System.EventArgs) Handles Me.Resize
        ControlLayout()
    End Sub

End Class


Saat Load Pertama:

Resize Pertama:

Resize Kedua:

When I tried, it works fine...


Click here if you like this article.


Post a Comment

13 Comments

Unknown said…
maaf mbak, udah ngerepotin...
rani said…
It's okay selama rani bisa mah...
Tetep semangat ngoding nya yaaah...!!!
Unknown said…
iya mbak, mohon petunjuk nya yah mbak.. soal nya masih pemula.. hehehehe.,

makasi yah mbak.
Unknown said…
mbak, maaf mau nanya nih.. agar password pada text box tidak kelihatan kan menggunakan paswordchar = "x"..
diatur paswordchar nya., terus disuruh buat button disamping password yang mana jika button itu ditekan maka password nya akan kelihatan.. itu gmana ya mbak?
Unknown said…
mbak, maaf mau nanya nih.. agar password pada text box tidak kelihatan kan menggunakan paswordchar = "x"..
diatur paswordchar nya., terus disuruh buat button disamping password yang mana jika button itu ditekan maka password nya akan kelihatan.. itu gmana ya mbak?
rani said…
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click

If TextBox1.PasswordChar = "*" Then
TextBox1.PasswordChar = ""
Else
TextBox1.PasswordChar = "*"
End If

End Sub
Unknown said…
mbak, mau nanya nih. bagaimana menyimpan variabel ke module.
module saya ini mbak:
Public CurrentAccountId As String
Public CurrentAccountName As String
Public CurrentAccountPriority As Byte
yang cuurentaccountname dan priority dipanggil dari database mbak.. apakah seperti ini mbak penulisan coding nya?
CurrentAccountId = "SELECT [id] FROM [AN_SUMATRA].[dbo].[SY_tb_appsaccounts]"
CurrentAccountName = txt_username.Text
CurrentAccountPriority = "SELECT [priority] FROM [AN_SUMATRA].[dbo].[SY_tb_appsaccounts]"

Unknown said…
yg accountpriority nya muncul bacaan conversion from data string to type byte is not valid.
kenapa tuh ya mbak?
rani said…
yang ini mah memberi nilai sama variable aja kan? bukan ambil data dari database.
CurrentAccountPriority = "SELECT [priority] FROM [AN_SUMATRA].[dbo].[SY_tb_appsaccounts]"

dan itu variable byte diisi sama string jadi ya error...
Unknown said…
priority nya ada di database mbak, kita ambil dari database lalu disimpan ke dalam module cuurentaccountpriority nya mbak..

itu bagaimana yah mbak?
rani said…
ini issue nya masih mesti pake adodb di .NET?

klo pake ADODB nya udah bisa blom?
Unknown said…
adodb di .NET., mbak..

alhamdulillah, udah lumayan ngerti mbak.. tapi yah masih bnyak belajar mbak., otak atik koding
Unknown said…
apakah harus di konversikan ke bentuk byte mbak, tapi kalau di konversi gak baca di form lain yang CurrentAccountPriority mbak..