看板 Visual_Basic 關於我們 聯絡資訊
※ 引述《mhc (路邊小草)》之銘言: : ※ 引述《redclock (紅色時鍾)》之銘言: : : 以下是小弟的部份程式碼 : 不確定你表達的東西是什麼阿..你是要這種東西嗎? @@ : Private Sub Command1_Click() : If Trim(Chr) = "" Then : rtvl = MsgBox("首字不得為空白!", vbCritical Or vbOKOnly, "注意!") : Unload Me : End If : 還是 : Private Sub Command1_Click() : If Left(Chr,1) = " " Then : rtvl = MsgBox("首字不得為空白!", vbCritical Or vbOKOnly, "注意!") : Unload Me : End If : anyway,去看一下字串處理函示吧~ 感謝各位先進的幫忙 我找到寫的方法了~ If Mid(RichTextBox1.SelText, 1, 1) = Chr(32) Then rtvl = MsgBox("首字不得為空白!", vbCritical Or vbOKOnly, "注意!") Uload Me End If 感謝各位 <(_ _)> -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.70.54.215
fumizuki:Left(...., 1) = " " 61.222.155.162 08/10
runtime:mid(....,1)=""220.133.250.210 08/11