Function enableIt(Optional txt As TextBox, _
Optional cmd As CommandButton, _
Optional lbl As Label)
On Error Resume Next
    If Not IsMissing(txt) Then txt.Enabled = True
    If Not IsMissing(cmd) Then cmd.Enabled = True
    If Not IsMissing(lbl) Then lbl.Enabled = True
End Function
 
Private Sub Command1_Click()
Call enableIt(Text1, , Label1)
End Sub
 
IpinZ

----- Original Message -----
From: "capresvb" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Sunday, January 15, 2006 5:19 PM
Subject: [Programmer-VB] Seputar fungsi

> Tambahan:
> 1. Bagaimana cara membuat (memprogram) file ekstensi?
> 2. call aktifkan(2,3)   //enable objek2 dan objek3=true else
> enable=false
>   call aktifkan(1)     //enable objek1=true else enable=false
>   call aktifkan(1,2,3) //enablekan selruh objek
>  
>   seandainya ada 3 objek, terdiri dari:
> objek1=objek textbox, objek2=objek command, objek3=objek label
> Pertanyaannya: Bagaimana cara membuat fungsi/procedure supaya bisa
> digunakan untuk keperluan di atas?
> 3. suatu saat saya ingin mendaftarkan objek ke dalam fungsi.
>   call registerobjek(txtNama, cmdSimpan, lblKelapKelip)
>   call registerobjek(txtNama,cmdSimpan)
>   //penjelasan mirip dengan nomor 2
> Pertanyaannya: Bagaimana cara membuat fungsi/procedure supaya bisa
> digunakan untuk keperluan di atas?  
>
>
>
>
>
> Wahana Programmer Groups Links
>
> <*> Untuk mengunjungi sponsor milis ini, klik link berikut:
>   
http://wahanaprogrammer.net
>
> <*> Untuk menghubungi owner milis ini, kirim email ke:
>   
[EMAIL PROTECTED]
>
> <*> Konsultasi pemrogramman bisa chat disini:
>    Yahoo! Messenger: wahanaprogrammer

> Yahoo! Groups Links
>
> <*> To visit your group on the web, go to:
>   
http://groups.yahoo.com/group/Programmer-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/

>
>
>
>


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer




SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language


YAHOO! GROUPS LINKS




Kirim email ke