返回列表 上一主題 發帖

為何Textbox的Setfocus無法發揮功能呢？

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2010-8-6 07:03 | 顯示全部帖子
回復 1# dechiuan999
試試看
修正你的Userform1程式碼如下
  1. Private Sub CommandButton1_Click()
  2.     TextBox1.SetFocus
  3. End Sub
  4. Private Sub CommandButton2_Click()
  5.     Unload Me
  6. End Sub
  7. Private Sub TextBox1_Change()
  8.     TextBox1.Text = UCase(TextBox1.Text)
  9.     'TextBox1.SetFocus
  10. End Sub
  11. Private Sub UserForm_Initialize()
  12.     '此程式發生在一個物件載入後，但尚未顯示的時候。
  13.     '您可將變數指定為起始值，且控制項可以移動或改變大小來配合初始資料。
  14.     'Userform1.TextBox1.Text = UCase(TextBox1.Text)
  15.     'Userform1.TextBox1.SetFocus
  16. End Sub
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-8-6 08:59 | 顯示全部帖子
小弟引用大大將userform的initialize內容取消之後，已可讓textbox的setfocus發揮其功能。
dechiuan999 發表於 2010-8-6 08:41

真正的發揮其功能在此
Private Sub CommandButton1_Click()
    TextBox1.SetFocus
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub UserForm_Initialize()
    'CommandButton1 設定屬性
    With CommandButton1
        .Caption = "發送 " & .Caption
        .Font.Size = 14
        .Font.Bold = True
        .Width = .Width + 30
    End With
End Sub

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2012-7-15 17:28 | 顯示全部帖子
回復 6# dds727
Me![id] 這程式碼 在 2003是錯誤的   不知你是用何種Excel版本 .
SetFocus 方法  鍵盤的駐點移到指定命令列控制項，這樣該命令列控制項就可接收鍵盤輸入。用來操縱控制項的鍵盤輸入型態視該控制項的型態而定。  這是 控制項 的 方法
如是儲存格  請用 [id].Select

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題