yup, semuanya ngikut, jadi masih harus ditambahkan fungsi TypeOf buat
nyeleksi control dg tipe menu yg diinginkan.
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is Menu Then
MsgBox ctl.Name
End If
Next ctl
sincera
[wwn]
--- In [email protected], "eriek" <[EMAIL PROTECTED]> wrote:
>
> kl di MDImain nya ada object pic box, toolbar or else ngikut jg yach
> CMIIW
> ----- Original Message -----
> From: Martin Zhang
> To: [email protected]
> Sent: Wednesday, June 14, 2006 1:28 PM
> Subject: Re: [Programmer-VB] looping utk baca seluruh isi menu
>
>
> coba yg ini...
>
> dim obj as control
>
> for each obj in MDImain.Controls
> msgbox obj.caption
> next
>
>
>
>
> On 6/14/06, eriek <[EMAIL PROTECTED]> wrote:
> 'contoh enum menu pd form yg bernama fMain
> 'usahakan nama menu nya identik, spt 3 digit huruf depan
nya "mnu" or else
> For iLoop = 0 To fMain.Count - 1
> If Left(fMain(iLoop).Name, 3) = "mnu" Then
> msgbox fMain(iLoop).Name & "-" & fMain(iLoop).Caption
> End If
> Next
>
> CMIIW
>
> semogamembantu
>
> BR
>
> eriek
>
> ----- Original Message -----
> From: "Alex" <[EMAIL PROTECTED]>
> To: <[email protected] >
> Sent: Tuesday, June 13, 2006 5:54 PM
> Subject: [Programmer-VB] looping utk baca seluruh isi menu
>
>
> Dear All,
>
> mohon pencerahannya ...
> gimana caranya utk baca seluruh struktur menu yg
> sudah dibuat pada sebuah form melalui menu editor,
> err ... misalnya gini aja, seluruh struktur menu
> yg ada pada form tersebut dibaca dan kemudian
> ditulis pada sebuah file teks ....
> ada yg bisa bantu gimana caranya utk bisa akses menu secara
terstruktur ?
> barangkali ada yg bisa bantu
>
> thx & regards ..
>
> Alex
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Everything you need is one click away. Make Yahoo! your home page now.
http://us.click.yahoo.com/AHchtC/4FxNAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
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/
