Re: [Programmer-VB] Seputar fungsi

Sun, 15 Jan 2006 23:11:37 -0800

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