TextBox選擇事件的問題及anchor問題[已解決]

圖片中label1是顯示東西

text1.text跟textbox1.text是選擇跟輸入東西後顯示在label1

我目前輸入順序為

先textbox1.text選為要的東西,再到text.text輸入完後再去伺服器帶資料出來 顯示於label1.text

那使用者一定會有輸入錯誤得時候,text1.text清空連帶我有把textbox1.text也清掉
...

瀏覽完整內容，請先 註冊 或 登入會員

rr09192084

1. textbox1.SelectedIndex = -1 '清空ComboBox指令
   
2. text1.Clear() '清空TextBox
   
3. textbox1.Focus() '然後游標(焦點)切換回到ComboBox裡

複製代碼

GetData()這函式的最後再加上面3行，撈完資料後讓程式回到原先設計流程。

rr09192084

1.     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   
2.         text1.ShortcutsEnabled = False  '不啟用快速鍵
   
3.         Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable '允許自行拉大視窗
   
4.         'GroupBox的Anchor屬性 上 下 左 右 都勾選的指令
   
5.         GroupBox1.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
   
6.         'DataGridView的停駐於父容器的指令
   
7.         DataGridView1.Dock = DockStyle.Fill
   
8.         Label1.Text = ""
   
9.     End Sub
   
10. 
    
11.     Private Sub text1_TextChanged(sender As Object, e As EventArgs) Handles text1.TextChanged
    
12.         '這個寫法直接輸入6位數字時就會去撈資料，不需要按ENTER
    
13.         '符合以下3個條件
    
14.         '先去ComboBox選取了資料(Items是從0開始算起的)
    
15.         '輸入的資料是數字
    
16.         '長度要剛好是6位數
    
17.         If textbox1.SelectedIndex >= 0 And IsNumeric(text1.Text) And text1.Text.Length = 6 Then
    
18.             GetData() '條件符合了就直接去資料庫撈資料
    
19.         ElseIf Not IsNumeric(text1.Text) And text1.Text.Length > 0 Then
    
20.             '有錯的話就清空ComboBox和TextBox
    
21.             Label1.Text = ""
    
22.             textbox1.SelectedIndex = -1 '清空ComboBox指令
    
23.             MessageBox.Show("輸入資料 " + text1.Text + " 格式有錯誤")
    
24.             text1.Clear() '清空TextBox
    
25.             textbox1.Focus() '然後游標(焦點)切換回到ComboBox裡
    
26.         End If
    
27.     End Sub
    
28. 
    
29.     Private Sub textbox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles textbox1.SelectedIndexChanged
    
30.         If textbox1.SelectedIndex >= 0 And IsNumeric(text1.Text) And text1.Text.Length = 6 Then
    
31.             GetData() '如果先去TextBox輸入資料再來ComboBox選取資料，符合規則的話也去資料庫撈資料
    
32.         End If
    
33.     End Sub
    
34. 
    
35.     Private Sub GetData() '這就是去資料庫撈資料的程式
    
36.         '先前已經將資料格式檢查好了，這裡就不再需要檢查輸入的資料了
    
37.         Label1.Text = textbox1.Text + " " + text1.Text '這只是測試用而已
    
38.         '詳細的撈資料程式放在這裡
    
39.         '........................
    
40.         '........................
    
41.     End Sub

複製代碼

這是詳細的程式碼，你參考看看吧，已經給你完整答案了，你應該多看看有關[事件]的資料，這是程式設計的基礎。...

瀏覽完整內容，請先 註冊 或 登入會員

rr09192084 發表於 2015-4-6 04:41 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

清空COMBOBOX要這樣做才對

問題的主軸在八樓跟十樓的回答內

麻煩大大再看一下嗎

rr09192084 發表於 2015-4-6 04:58 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

在Form Load區段加上應該可以解決不能拉大的問題

可以對form調整  但是group跟table元件不會跟著拉

rr09192084 發表於 2015-4-6 04:41 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

清空COMBOBOX要這樣做才對

主軸在八樓跟十樓

麻煩你
...

瀏覽完整內容，請先 註冊 或 登入會員

rr09192084

在Form Load區段加上

1. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable

複製代碼

應該可以解決不能拉大的問題

天兵才子 發表於 2015-4-6 04:17 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

你講得沒錯 我要的是這樣

yea, but you didn't do it, you have any idea how?

rr09192084 發表於 2015-4-6 04:41 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

清空COMBOBOX要這樣做才對

i think he is not trying to clear the combobox, he is trying to reset it to the first item which is empty

rr09192084

清空COMBOBOX要這樣做

1. textbox1.SelectedIndex = -1

複製代碼

才對

hatakc56923us 發表於 2015-4-6 01:06 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

fourth,

based on your requirement,

你講得沒錯 我要的是這樣

rr09192084 發表於 2015-4-6 12:47 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

A1:你的輸入只有ComboBox和TextBox兩個元件，一般來說ComboBox只有[有選]跟[沒選]兩種狀態，應該不會有資料 ...

...

瀏覽完整內容，請先 註冊 或 登入會員

last,

GROUP跟TABLE都有設ANCHOR屬性 上下左右都打勾
在執行後無法向右拉取

please post some code?

fourth,

based on your requirement,

使用者有可能不會從COMBOX1先選,可能會先TEXT1先輸入後再選COMBOX1
那這時COMBOX1選完後要讓LABEL1,出現COMBOX1+TEXT1結合後對應的資料.

you didn't implement this logic at all

third,

no ideas what 資料庫() does, you check label1 is empty afterward, but you SET label1
to be empty before calling 資料庫(), so if your 資料庫() does not modify label1, you will always get error by hitting the first condition