CEK ONGKOS KIRIM

Thursday, December 2, 2010

Caption Tombol otomatis berubah tiap di klik

Dalam mendevelop software, kadang kala perlu untuk merubah caption commandbutton, sehingga bisa dipakai untuk dua perintah. misal user akan tekan tombol edit data dan pada saat selesai edit data tentunya user akan mencari tombol simpan untuk untuk menyimpan perubahan data. 


Itu semua bisa dilakukan dalam satu commandbutton dimana pada saat user klik pada commandbutton tersebut, commandbutton akan segera mengganti caption dan bila di klik kembali commandbutton akan segera mengganti ke semula

Untuk prosesnya sangat sederhana, disini digunakan variabel tipe data boolean dimana nilainya kalau bukan true pasti false. jadi pada Saat setiap tombol diklik variabel tersebut akan segera di rubah

1. Buka visual basic 6 atau VB6, pilih StandardEXE lalu klik tombol open
2. pada toolbox dobel klik command button
3. klik kanan pada form1, pilih view code, lalu copykan code di bawah ini

'--- kode

Dim pilih As Boolean

Private Sub Command1_Click()
    pilih = Not pilih
    If pilih Then
        Command1.Caption = "
Edit data"
    Else
        Command1.Caption = "
Simpan"
    End If
End Sub



'--- end code

untuk menjalankannya
1. tekan tombol F5, lalu klik tombol command1 lihat apa yang terjadi bila di klik kembali

1 comment:

  1. Pengen yang lebih seru ...
    Ayo kunjungi www.asianbet77.com
    Buktikan sendiri ..

    Real Play = Real Money

    - Bonus Promo Red Card pertandingan manapun .
    - Bonus Mixparlay .
    - Bonus Tangkasnet setiap hari .
    - New Produk Sabung Ayam ( minimal bet sangat ringan ) .
    - Referal 5 + 1 % ( seumur hidup ) .
    - Cash Back up to 10 % .
    - Bonus Royalty Rewards setiap bulan .

    untuk Informasi lebih jelasnya silahkan hubungi CS kami :
    - YM : op1_asianbet77@yahoo.com
    - EMAIL : asianbet77@yahoo.com
    - WHATSAPP : +63 905 213 7234
    - WECHAT : asianbet_77
    - SMS CENTER : +63 905 209 8162
    - PIN BB : 2B4BB06A / 28339A41

    Salam Admin ,
    http://asianbet77.com/

    ReplyDelete