Re: [Programmer-VB] Seputar fungsi

Sun, 15 Jan 2006 23:42:16 -0800

hehehe.. jadi malu ;*) ketauan deh kalau nulis email, kodenya ga di coba dulu ;P
thx mas ipinZ
 
best regards
[wwn]
 
On 1/16/06, ipinz <[EMAIL PROTECTED]> wrote:
Oke deh, bos. .. ;)
sekedar ngingetin temen2 kalo penggunaan paramArray kudu pake variant CMIIW
juga penggunaan error traping karena gak semua object memiliki property enabled
 
 

Function enableit(ParamArray obj() As Variant)

On Error Resume Next 

Dim i As Integer
For i = 0 To UBound(obj)
obj(i).Enabled = True
Next i
End Function

Private Sub Command1_Click()
Call enableit(Text1, Label1, text2, combo1, grid1)
End Sub

IpinZ

 
----- Original Message -----
 
Sent: Monday, January 16, 2006 10:12 AM
Subject: Re: [Programmer-VB] Seputar fungsi

 
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]


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