warna border control

Mengganti Warna Border dari Kontrol

Kontrol-kontrol yang ada di VB tidak menyediakan properti untuk mengganti warna bordernya. Jadi jika Anda ingin mengubah warna bordernya diperlukan kode tambahan.

Cara pembuatannya seperti di bawah ini :

Buat Project baru dengan sebuah Form dan sebuah Module didalamnya.

Di Module ketikkan kode berikut :

[ VB 6.0 ]

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long

Private Declare Function FrameRgn Lib "gdi32.dll" (ByVal hDC As Long, ByVal hRgn As Long, ByVal hBrush As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Public Sub BorderColor(ByVal Ctl As Control, ByVal lColor As OLE_COLOR, Optional ByVal BorderWidth As Integer = 2)

    Dim l As Long

    

    l = CreateRectRgn(BorderWidth, BorderWidth, (Ctl.Width / Screen.TwipsPerPixelX) - BorderWidth, (Ctl.Height / Screen.TwipsPerPixelY) - BorderWidth)

    SetWindowRgn Ctl.hwnd, l, False

    l = CreateRectRgn(Ctl.Left / Screen.TwipsPerPixelX, Ctl.Top / Screen.TwipsPerPixelY, Ctl.Width / Screen.TwipsPerPixelX + (Ctl.Left / Screen.TwipsPerPixelX), Ctl.Height / Screen.TwipsPerPixelY + (Ctl.Top / Screen.TwipsPerPixelY))

    FrameRgn Ctl.Container.hDC, l, CreateSolidBrush(lColor), BorderWidth, BorderWidth

End Sub

[ VB .NET ]

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Integer, ByVal hRgn As Integer, ByVal bRedraw As Boolean) As Integer

Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Integer) As Integer

Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Integer) As Integer

Private Declare Function FrameRgn Lib "gdi32.dll" (ByVal hdc As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer

Public Sub BorderColor(ByVal Ctl As Control, ByVal lColor As Color, Optional ByVal BorderWidth As Integer = 1)

        Dim i As Integer

        i = CreateRectRgn(BorderWidth, BorderWidth, Ctl.Width - BorderWidth, Ctl.Height - BorderWidth)

        SetWindowRgn(Ctl.Handle, i, False)

        i = CreateRectRgn(Ctl.Left, Ctl.Top, Ctl.Width + Ctl.Left, Ctl.Height + Ctl.Top)

        FrameRgn(GetDC(Ctl.Parent.Handle), i, CreateSolidBrush(CInt(ColorTranslator.ToWin32(lColor))), BorderWidth, BorderWidth)

End Sub

Sekarang buatlah sebuah TextBox di Form1 dan misalnya Anda ingin diubah warna bordernya menjadi warna biru, maka tuliskan kode berikut ini di bagian 'Form_Paint' dari Form1 :

[ VB 6.0 ]

BorderColor Text1, vbBlue

[ VB .NET ]

BorderColor(TextBox1, Color.Blue)

CATATAN :

- Bagi pengguna VB 6.0,  apabila Kontrol yang akan diganti warna bordernya ditempatkan di PictureBox, maka properti "AutoRedraw" dari PicturBox tersebut harus bernilai "True".

- Bagi pengguna VB 6.0,  apabila Kontrol yang akan diganti warna bordernya ditempatkan di Frame atau Tab, maka cara diatas tidak dapat digunakan. Solusinya buatlah sebuah PictureBox (properti AutoRedraw=True; BorderStyle=0) ke dalam Frame atau Tab tersebut, baru Kontrol yang akan diganti warna bordernya ditempatkan di PictureBox tersebut.

Semoga Berhasil

texs berjalan di VB.Net 2008

Text Berjalan Dengan Visual Basic.NET

Pada tutorial kali ini saya akan membahas tentang bagaimana cara membuat Text berjalan pada VB.NET...
Ikuti langkah-langkahnya ya kawan...
hihi...

Yang dibutuhkan dalam tutorial ini cuman Label dan Timer.
Yup kita langsung mulai...!!!

Pastekan kode dibawah ini pada aplikasi anda :
Public Class Form1
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call

End Sub

'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub

'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer

'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Me.Label1 = New System.Windows.Forms.Label
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 48.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(8, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(800, 176)
Me.Label1.TabIndex = 0
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Timer1
'
Me.Timer1.Enabled = True
Me.Timer1.Interval = 200
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(816, 272)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)

End Sub

#End Region
Dim tulisan(3) As String
Dim i, j As Integer


'code ini diletakkan ditimer1 event tick'
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If i.Equals(tulisan(j).Length) Then
Me.Label1.Text = ""
If j < tulisan.Length - 1 Then
j = j + 1
Me.Label1.Text = tulisan(j)
Else
j = 0
End If
i = 0
End If
Label1.Text = tulisan(j).Substring(0, i)
i = i + 1
End Sub


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Masukkan pesan yang ingin ditampilkan disini
tulisan(0) = " Rama Blog "
tulisan(1) = " Rama Blog "
tulisan(2) = " Rama Blog ... "
tulisan(3) = " Waktu menunjukkan pukul : " & TimeValue(Date.Now) & " "

Label1.Text = tulisan(j)
End Sub
End Class

Yup....
sekarang coba anda compile..
dah hasilnya...???
jreng...jreng.....

Selamat Mencoba semoga berhasil ....

@http://dirascan.blogspot.com

Membuat Listview Dengan Vb.Net 2008

Program List View Mahasiswa Di VB.Net 2008

Listing Programs >>

Public Class Form1

    Sub jurusan1()

        cmb_jur.Items.Clear()

        With cmb_jur

            .Items.Add("S1/Teknik Informatika")

            .Items.Add("S1/Sistem Informasi")

            .Items.Add("D3/Manajemen Informatika")

            .Items.Add("D3/Komputerisasi Akutansi")

            .Items.Add("D1/Teknisi Komputer")

            .Items.Add("D1/Manajemen Informatika")

            .Items.Add("D1/Design Grafis")

        End With

    End Sub

    Sub kelas1()

        Cmb_kelas.Items.Clear()

        With Cmb_kelas

            .Items.Add("Pagi")

            .Items.Add("Siang")

            .Items.Add("Malam")

        End With

    End Sub

    Sub bersih(ByVal f As Form)

        Dim x As Object

        For Each x In f.Controls

            If TypeOf x Is TextBox Then x.text = ""

            If TypeOf x Is ComboBox Then x.text = ""

        Next

    End Sub

    Sub IsiTabel()

        Dim Lst As New ListViewItem

        Lst.Text = txt_nama.Text

        Lst.SubItems.Add(txt_npm.Text)

        Lst.SubItems.Add(cmb_jur.Text)

        Lst.SubItems.Add(Cmb_kelas.Text)

        If rd_Lk.Checked = True Then

            Lst.SubItems.Add(rd_Lk.Text)

            rd_Pr.Checked = False

        ElseIf rd_Pr.Checked = True Then

            Lst.SubItems.Add(rd_Pr.Text)

            rd_Lk.Checked = False

        End If

        Lv.Items.Add(Lst)

    End Sub

    Private Sub Btn_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_simpan.Click

        IsiTabel()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        jurusan1()

        kelas1()

    End Sub

    Private Sub Btn_Lv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Lv.Click

        Lv.Items.Clear()

    End Sub

    Private Sub Btn_hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_hapus.Click

        Call bersih(Me)

        rd_Lk.Checked = False

        rd_Pr.Checked = False

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

End Class

Thanks Telah Membaca ....

Semoga Bermanfaat :-) :-)

Program Vb.Net 2008 Menggunakan Fungsi Case

Contoh Program Pegawai menggunakan Case awaq ...

heheheheh .....

Listing Programs >>

Public Class form_pegawai

    Dim x, y As String

    Dim a As String

    Dim c As String

    Dim b As MsgBoxResult

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 1 To 8

            cmb_nip.Items.Add("10123300" & i)

        Next

    End Sub

    Sub seleksi()

        a = "Pak"

        c = "Gol"

        x = Microsoft.VisualBasic.Right(cmb_nip.Text, 3)

        Select Case x

            Case "001" : Txt_nama.Text = a & " " & "Mesran" : cmb_gol.Items.Add(c & " " & "IVA")

            Case "002" : Txt_nama.Text = a & " " & "Abdul" : cmb_gol.Items.Add(c & " " & "I")

            Case "003" : Txt_nama.Text = a & " " & "Berto" : cmb_gol.Items.Add(c & " " & "I")

            Case "004" : Txt_nama.Text = a & " " & "Paska" : cmb_gol.Items.Add(c & " " & "I")

            Case "005" : Txt_nama.Text = a & " " & "Toni" : cmb_gol.Items.Add(c & " " & "IIIB")

            Case "006" : Txt_nama.Text = a & " " & "Yasir" : cmb_gol.Items.Add(c & " " & "IIIC")

            Case "007" : Txt_nama.Text = a & " " & "Fahmy" : cmb_gol.Items.Add(c & " " & "I")

            Case "008" : Txt_nama.Text = a & " " & "Lambok" : cmb_gol.Items.Add(c & " " & "I")

        End Select

    End Sub

    Private Sub cmb_nip_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_nip.SelectedIndexChanged

        Call bersih()

        Call seleksi()

    End Sub

    Sub bersih()

        cmb_gol.Items.Clear()

        cmb_gol.Text = ""

        cmb_jabatan.Items.Clear()

        cmb_jabatan.Text = ""

        txt_tunjangan.Text = ""

        txt_gaji.Text = ""

    End Sub

    Sub bersih(ByVal f As Form)

        Dim x As Object

        For Each x In f.Controls

            If TypeOf x Is TextBox Then x.text = ""

            If TypeOf x Is ComboBox Then x.text = ""

        Next

    End Sub

    Private Sub Btn_bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_bersih.Click

        Call bersih()

        Call bersih(Me)

    End Sub

    Private Sub cmb_gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_gol.SelectedIndexChanged

        x = Microsoft.VisualBasic.Right(cmb_gol.Text, 1)

        Select Case x

            Case "A" : txt_gaji.Text = 5000000 : cmb_jabatan.Items.Add("Ketua")

            Case "B" : txt_gaji.Text = 3500000 : cmb_jabatan.Items.Add("PuketI")

            Case "C" : txt_gaji.Text = 2500000 : cmb_jabatan.Items.Add("PuketII")

            Case "I" : txt_gaji.Text = 2000000 : cmb_jabatan.Items.Add("Dosen")

        End Select

    End Sub

    Private Sub cmb_jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_jabatan.SelectedIndexChanged

        y = Microsoft.VisualBasic.Left(cmb_jabatan.Text, 5)

        Select Case y

            Case "Ketua" : txt_tunjangan.Text = 1800000

            Case "Puket" : txt_tunjangan.Text = 1400000

            Case "Dosen" : txt_tunjangan.Text = 1000000

        End Select

    End Sub

    Private Sub Btn_Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Proses.Click

        txt_tolgaji.Text = "Rp" & " " & Val(txt_gaji.Text) + Val(txt_tunjangan.Text)

    End Sub

    Private Sub Btn_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_keluar.Click

        b = MsgBox("Apa anda Yakin keluar dari program ini?", MsgBoxStyle.Question + _

            MsgBoxStyle.YesNo, "Program Pegawai")

        If b = MsgBoxResult.Yes Then

            Close()

        End If

    End Sub

End Class

<> Semoga Dapata Bermanfaat <>