|
簽到天數: 1 天 連續簽到: 1 天 [LV.1]初來乍到 - 積分
- 23
- 威望
- 0
- G幣
- 60
- 聲望
- 0
- 貢獻
- 10
- 金錢
- 20
- 嘉獎
- 0 次
- 嚴重警告
- 0 次
- 閱讀權限
- 10
- 註冊時間
- 2012-9-10
|
目前已經規劃好了 但是執行部份我就是想不到 ..
我用了 Combo . text command 各1個
目前我寫的內容是這樣
Option Explicit
Private Sub Combo1_Click()
Dim idx As Integer
idx = Combo1.Text
Select Case idx
Case 1
Text1.Text = ""
Text1.Text = "C:\Program SSSS\RC語音\raidcall.exe"
Case 2
Text1.Text = ""
Text1.Text = "C:\Program SSSS\Honey\kupeer\9kupe.exe"
End Select
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 1
Combo1.AddItem i + 1
Next
End Sub
接下來 我拉下選單 ( Combo )
選擇 1 出現 RC 的路徑
接下來 Command 按一下 就打開了那個主程式
例如這樣
 &res=landing
按下確定 就直接 執行那個程式
---------------------------------------
我不知道能不能這樣
我想在 Combo 拉下選單時 就出現 RC語音 ... 等
我希望這樣 不知道是否可以呢??
然後其他一樣 出現 Text1 出現路徑後 command 按下就開啟
我知道這樣表達夠不夠清處 .. |
|
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
