查看單個文章
舊 2009-03-31, 07:08 PM   #3 (permalink)
飛行船大大
註冊會員
 
飛行船大大 的頭像
榮譽勳章
UID - 282126
在線等級: 級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時級別:15 | 在線時長:286小時 | 升級還需:34小時
註冊日期: 2007-10-09
文章: 178
精華: 0
現金: 328 金幣
資產: 7328 金幣
預設

引用:
作者: mini 查看文章
你可以使用一個全域變數當作判斷旗標
分別應用在 TextBox1 與 TextBox2 的 GotFocus事件上

比如
在TextBox2 的 GotFocus事件寫上
flg_IsTextBox = 2

在TextBox1 的 GotFocus事件寫上
flg_IsTextBox = 1
的確是永遠呼叫不完.

還有另一寫法 , 就是表單上多設2個: option1 和 option2 讓 user可以選
3事件內 全部指令 加起來 只須7行指令即可ok

TextBox1的事件只須要5行指令如下

引用:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If Option1 Then
TextBox2.Text = Format(Val(TextBox1.Text) / 2.54, "#######0.0####")
Else
TextBox2.Text = Format(Val(TextBox1.Text) * 2.54, "#######0.0####")
End If

End Sub

option1 的 click事件 內寫1行 呼叫:TextBox1_TextChanged
引用:
Call TextBox1_Change
option2 的 click事件 內也是寫1行:TextBox1_TextChanged
引用:
Call TextBox1_Change
執行畫面 我2分鐘後上傳. format 看樓主你自己須要 ~ 自己改改即可.

此帖於 2009-03-31 07:20 PM 被 飛行船大大 編輯.
飛行船大大 目前離線  
送花文章: 185, 收花文章: 64 篇, 收花: 146 次
回覆時引用此帖