ªð¦^¦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

¦^´_ 1# dechiuan999
  1.      myOp11.mySqlServer.clsConn = conStr
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

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

¦^´_ 1# dechiuan999
  1. Private Sub MultiPage1_Change()
  2.     Select Case MultiPage1.Value
  3.     'MultiPage1.Value = 0
  4.     Case Is = 3
  5.         mSht1.Cells.Clear
  6.         mSht2.Select
  7.         'mSht2.Cells.Clear
  8.         ReDim myOp15(15 To 18)
  9.         For i = 15 To 18
  10.             '³o¸Ìªí³æ¨C¤@­Ó±±¨î¶µ ´`Àô 4¦¸ «ü©w¬Û¦Pª«¥óªº±±¨î¶µ
  11.             Set myOp15(i) = New allAppCls
  12.             Set myOp15(i).mySqlServer = New allServerCls
  13.             myOp15(i).mySqlServer.clsConn = conStr
  14.             Set myOp15(i).opt15 = Me.Controls("OptionButton" & CStr(i))
  15.             Set myOp15(i).mTb6 = Me.Controls("TextBox6")
  16.             Set myOp15(i).mTb7 = Me.Controls("TextBox7")
  17.             Set myOp15(i).comBox5 = Me.Controls("ComBoBox5")
  18.             Set myOp15(i).List3 = Me.Controls("ListBox3")
  19.             
  20.             Set myOp15(i).Command2 = Me.Controls("CommandButton2")
  21.             Set myOp15(i).mSht2 = Worksheets("Appsearch_Data")
  22.             myOp15(i).ck15 = i
  23.         Next
  24.         With ComboBox5
  25.             .AddItem "Server"
  26.             .AddItem "LocalHost"
  27.             .ListIndex = 0
  28.         End With
  29.         ListBox3.Clear
  30.     End Select
  31. End Sub
½Æ»s¥N½X
  1. Public Property Set List3(setList3 As MSForms.ListBox)
  2.     Set mList3 = setList3
  3.     MsgBox mList3.Parent.Parent.Parent.Name & "-" & mList3.Parent.Parent.Name & "-" & mList3.Parent.Name & "-" & mList3.Name
  4. End Property
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 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 : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD