Re: [Programmer-VB] Seputar fungsi

Sun, 15 Jan 2006 18:12:54 -0800

nambahin aja, biar fungsinya bisa dipakai buat semua jenis object control, bisa dirubah gini
 
function enableit(paramarray obj() as object)
  dim i as integer
  for i = 0 to ubound(obj)
    obj(i).enabled = true
  next i
end if
 
Private Sub Command1_Click()
  Call enableIt(Text1, Label1, text2, combo1, grid1)
End Sub
 
best regards
[wwn]
On 1/15/06, ipinz <[EMAIL PROTECTED]> wrote:
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] >
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



Kirim email ke