![]() |
|
論壇說明 |
歡迎您來到『史萊姆論壇』 ^___^ 您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的! 請點擊這裡:『註冊成為我們的一份子!』 |
![]() ![]() |
|
主題工具 | 顯示模式 |
![]() |
#1 |
註冊會員
|
![]() 各位先進們好,今天在做一個公式轉換時遇到了一個問題,我想將公分換成才數,因為30cmX30cm=1才,跟我之前的公式轉換的練習不太一樣,我做了一個Text1公分XText2公分=Text3才數,然後當我輸入數字後,按下button鈕,可以自動換算才數,請問這個該朝那個方向去寫呢?謝謝。 |
![]() |
送花文章: 25,
![]() |
![]() |
#2 (permalink) |
管理版主
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() |
![]() 有個方式可以將 Textbox 限制只能輸入 "數字"
OnlyForTextBoxModule.bas 語法:
Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _ (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Const ES_NUMBER = &H2000 Private Const GWL_STYLE = (-16) ' 只允許輸入數字: Public Function NumbersOnly(tBox As TextBox) Dim DefaultStyle As Long DefaultStyle = GetWindowLong(tBox.hWnd, GWL_STYLE) NumbersOnly = SetWindowLong(tBox.hWnd, GWL_STYLE, DefaultStyle Or ES_NUMBER) End Function NumbersOnly TextBox1 就好了 |
![]() |
送花文章: 2006,
![]() |
![]() ![]() |
|
|
![]() |
||||
主題 | 主題作者 | 討論區 | 回覆 | 最後發表 |
字幕轉換的問題 | xj2s | 軟體應用問題討論區 | 6 | 2004-03-11 05:48 PM |
字幕轉換的問題 | cwvdavid | 一般電腦疑難討論區 | 2 | 2003-04-18 07:29 PM |
請問一個Serv-U的問題 | nyr02217 | 軟體應用問題討論區 | 2 | 2003-03-11 08:39 PM |
有一個網站叫做白色小站的問題 | 龍之首競技場 | 一般電腦疑難討論區 | 11 | 2002-12-20 11:28 PM |
檔案轉換的問題 | 萍水相逢 | 軟體應用問題 Q & A 精華區 | 2 | 2002-12-13 04:56 PM |