ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ÂI¿ïLISTBOX_CLICK¤@¶µ¸ê®Æ®É¬°¦ó·|°õ¦æ¥|¦¸©O¡H

°õ¦æª«¥óÃþ§O·|¥X²{¤£¥¿½TªºÄÝ©Ê

¦U¦ì¤j¤j¦n¡G

  ¤p§Ì¦b¦¹¥ý¦V¦U¦ì¤j¤j
«ô­Ó±ß¦~¡C

¯¬¦U¦ì¤j¤j
¤ß·Q¨Æ¦¨¡B¨Æ¨Æ¦p·N¡I

  ¤p§Ì³]¦³¤G­Óª«¥óÃþ§O¡A
¦P®É¥ÑUserForm_Initialize°õ¦æ
¦ÜSet myOp11.mySqlServer.clsConn = conStr
´N·|¥X²{¤£¥¿½TªºÄݩʥΪk¡C

·Q½Ð¦U¦ì¤j¤j¯à«ü¾É¤p§Ì¦p¦ó§ï¥¿»yªk¡C
TEST_1.rar (20.32 KB)
ÁÂÁ¦U¦ì¤j¤j¡I

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-2-9 07:35 ½s¿è

¦^´_ 2# GBKEE


    ÁÂÁªO¥D¤j¤j¡C
§Ú¯u¦³ÂI·wÀYÂà¦V¡A
¤À¤£²MªF¦è«n¥_¡C
­n½á¤©­È´N¤£¥i
¨Ï¥ÎSET³]©w¤F¡C

TOP

[µo°Ý] ÂI¿ïLISTBOX_CLICK¤@¶µ¸ê®Æ®É¬°¦ó·|°õ¦æ¥|¦¸©O¡H

¦U¦ì¤j¤j¦n¡G
test_listbox.rar (42.34 KB)
  ¤p§Ì¦³¤@ªí³æ¨Ã¤Þ¥ÎMULTIPAGE
³]©w¦h­ÓPAGE¡C
  ²{¦³¤@°ÝÃD¤@ª½§xÂZ¦h¤é¡C¦b¨ä
¤¤ªí³æPAGE4¦WºÙTEST4³]¦³
COMBOBOX5
TEXTBOX6
OptionButton15
LISTBOX3
¨BÆJ¤@¡B
­º¥ý°õ¦æOPTIONBUTTON15¤§«á
¨ú¥X«ü©wªº¸ê®Æ®w¨Ã±N¸ê®Æ¨ú¥X¡C
¨BÆJ¤G¡B
LISTBOX3·|Åã¥Ü¥X¸gDICTIONARY
¨ú¥X¤u§@ªíAPPSEARCH_DATAÄæ¦ìA
ªº¸ê®Æ¡C
¨BÆJ¤T¡B
ÂI¿ïLISTBOX3ªº³æµ§¸ê®Æ¡A¥i¦A
±N«È¤á¸ê®Æ§Q¥ÎMSGBOX Åã¥Ü¥X¨Ó¡C

¥i¬O°ÝÃD´N¥X¦b¨BÆJ¤T¡A·íÂI¿ï¤@¦¸®É¡A
«o·|¥X²{LISTBOX3 CLICK³sÄò°õ¦æ¥|¦¸¡C
¤p§Ì¥ý±NMLIST3_CLICK­×¥¿¤£¶i¤J
¸ê®Æ®w¡A¦Ó¬OÅý¨äÂI¿ï¸ê®Æ®É¡F¤]·|¦P¼Ë
¥X²{°õ¦æ°j圏¥|¦¸ªº±¡ªp¡C
¤p§Ì¤@ª½·Q¤£³q¡A¤£ª¾­n¦p¦ó¸Ñ¨M¦¹°ÝÃD©O¡H

ÁÂÁ¦U¦ì¤j¤j¡I
Public Sub mList3_Click()
    '§Q¥ÎListBox3¨ú¥X«È¤á³qÃö®×¸¹¤Î½s¸¹
    Dim mySql As String
    Dim mApp$
    With mList3
        If s > 1 Then Exit Sub
        If .ListIndex = -1 Then
            'MsgBox "½Ð¥ý¿ï¨ú«ü©w³ø³æ¸¹½X"
            Exit Sub
        Else
            mApp = .Value                        
            MsgBox mApp
        End If        
    End With
End Sub

¦^´_ 5# GBKEE


    ÁÂÁªO¥D¤j¤j¡C
ªO¥D¤j¤j¤×¦p¤@·ø©ú¿O®É®Éµ¹¤©
§Ú­Ì³Ì¨Îªº«ü¤Þ¤è¦V¡A¤]Åý§Ú­Ì
¤£·|°g¥¢¦b¸ô³~¤W¡C

´N·P®¦¡I

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD