※ 引述《rala1128 (餅餅)》之銘言： : Option Explicit : Private Sub CommandButton1_Click() : ◤ Dim r As Integer◢ : ◤ If CheckIDNum(UCase(Me.TextBox1)) Then◢ : MsgBox "身分證字號正確" ◣ & Chr(10) & Chr(10) & ◢ "切換至VBE程式碼" : ViewCode : Unload Me : Else : MsgBox "輸入錯誤，請重新輸入" : ◤ r = Len(TextBox1.Text) : Me.TextBox1.SetFocus : Me.TextBox1.SelStart = 0 : Me.TextBox1.SelLength = r◢ : End If : End Sub ◤ Dim r As Integer◢ : 定義r為整數 ◤ If CheckIDNum(UCase(Me.TextBox1)) Then◢ : 如果CheckIDNum()為真,則繼續, CheckIDNum為驗證身份証的函數 ◣ & Chr(10) & Chr(10) & ◢: Chr()為ASCII函數,Chr(10)為換行符號 Len()為計算字串內字元數目的函數 如果是初學者的話,建議先買本入門書看一看. 另外,也可以多利用Help. : 請問大大 : 用三角形框起來的地方是我看不懂的地方 : 可以解釋給我聽嗎?? : 這是輸入身分證字號的那個表格的程式碼... : 是不是有些地方是我用不到的...像是他一直會出現"r" : 可是我不知道"r"代表著是什麼... : 還有"Chr(10)"我也不懂他是什麼?? : ※ 引述《qsss (Qsss)》之銘言： : : 這個範例已經包括驗證的公式了... : : 只是它的偵錯防呆的機制是不是你要的? : : 還有...它使用的方式是不是你要的? : : 範例裡面不只用到If..Then..Else : : 如果你的需求是只能使用If... : : 那你就要自行將Select改寫成If用法了... --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 210.202.6.129