˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  ͧ gotoxy ѧ...
2017-08-28 11:45:52
  ͧҧա u...
2017-08-27 20:09:01
  #define GLUT_DISABLE_ATEXIT...
2017-08-27 12:53:17
  դԻ͹ ...
2017-08-27 10:50:02
  Ѻ ͹ matlab ¹ matlab...
2017-06-03 16:27:23
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  Homework comment
  ͺسҡѺ...
2017-08-16 18:27:25
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  Article comment
  [b] , ...
2017-10-20 10:05:06
  [b]5 ...
2017-10-18 08:19:17
  - ...
2017-10-18 07:17:11
  [b] ...
2017-10-18 06:07:31
  [b] 96 ...
2017-10-18 06:05:28
  - ...
2017-10-18 05:49:56
  code ͧ VB ú...
2017-09-28 16:50:02
  ҨѺ ͧ
...

2017-07-11 09:59:35
  ö͡Ѻ anycast ...
2017-07-05 10:12:35
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 eMbedded Visual Basic Tutorial  

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 eMbedded Visual Basic
 
 

6 ҧ

 

ҧٺ ѺҹѺ ö͡÷ӧҹͧ ѴԸա÷ Ѻ Pocket PC ˹觢ͧٺ ҹҧͧ˹ҵҧ 觨͹Ѻк Թ ٺҹ

DownloadǹŴ

๹ͧٺ

  • ӡҧਤ
  • ԡ͡ Project->Components...

ٻʴ͡ ๹
ٻʴ͡ ๹

  • ӡ͡¡ Microsoft PocketPC MenuBar Control 3.0 ѧٻ

ٻʴ ͡¡Ҥ͹  Menu

  • ԡ OK
  • ӡôѺŤԡ MenuBar ҡ Toolbar ҹҧ ͹ ѧٻ

ٻʴ äԡҧ͹ Mainmenu 麹
ٻʴ äԡҧ͹ Mainmenu 麹

  • ӡäԡ͡ MenuBar С˹ Property ͧ NewButton=False

ٻʴ á˹ Property ͧ NewButton=False
ٻʴ á˹ Property ͧ NewButton=False

· ͤس Run ͧس 㹢з躹 դ͹ Menubar š Run ¡âͧ New ѵѵ ͧٴѧǨеͧ˹ Property ͧ NewButton=False

  • ͧ ӡôѺŤԡ лҡ˹ҵҧ Code View ӡ͡¡ôҹͧ˹ҵҧ Load ҧ Sub Form_Load Ѻ¹÷ӧҹ 㹢з鹷ӧҹ

ٻʴҧ˵ءó Ϳ鹷ӧҹ
ٻʴҧ˵ءó Ϳ鹷ӧҹ

  • ӡû͹ ҧ ҧ 2 ¡ä File Edit ¡èлСͺ ¡ ҧ ¡˹Ңͧ˹觢ͧ, key Ѻ繪ͧ͢ ͤʴ mnuFile.Items.Add 1, "mnuFileOpen", "Open" ¤֧ ͹ mnuFile ӡ¡÷ 1դ key mnuFileOpen (key ж١͵Ǩͺ äԡ) ʴͤ "Open" ¡âͧ
Private Sub Form_Load()
Dim mnuFile As MenuBarMenu
Dim mnuEdit As MenuBarMenu

    Set mnuFile = MenuBar1.Controls.AddMenu("File", "mnuFile")
    mnuFile.Items.Add 1, "mnuFileOpen", "Open"
    mnuFile.Items.Add 2, "mnuFileAdd", "Add"
    mnuFile.Items.Add 3, "mnuFileSave", "Save"
    
    Set mnuEdit = MenuBar1.Controls.AddMenu("Edit", "mnuEdit")
    mnuEdit.Items.Add 1, "mnuEditCut", "Cut"
    mnuEdit.Items.Add 2, "mnuEditPaste", "Paste"

End Sub

  • ͺ Run ¡ F5 Ŵѧٻ

ٻʴ š Run
ٻʴ š Run

  • ӡûԴ ش Run
  • ӡԴѧ˹ҵҧ Code View ͡

ٻʴ ҧ sub ա͡ԡ
ٻʴ ҧ sub ա͡ԡ

  • Ƿӡŧ ͷӡõǨͺ աäԡ¡ Фسöǹ㹡 ¡÷ӧҹҧ ͧ 㹵ҧ ʴ§˹ҵҧ ͤ سö÷ӧҹ ¡ sub function ¹
Private Sub MenuBar1_MenuClick(ByVal Item As MenuBarLib.Item)
    Select Case Item.Key
        Case "mnuFileOpen"
            MsgBox "File Open"
            
        Case "mnuFileAdd"
            MsgBox "File Add"
        
        Case "mnuFileSave"
            MsgBox "File Save"
        
        Case "mnuEditCut"
            MsgBox "Edit Cut"
        
        Case "mnuEditPaste"
            MsgBox "Edit Paste"
        
    End Select
End Sub
  • ӡ÷ͺ ¡ F5 سͺԡ͡ٵҧ ѧٻ

ٻʴ ÷ͺ÷ӧҹͧ ¤ԡ͡
ٻʴ ÷ͺ÷ӧҹͧ ¤ԡ͡

 

BACK

µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th