VBæ¢è¡ï¼
代ç è¿é¿æ¢è¡ä½¿ç¨ä¸ä¸ªç©ºæ ¼å ä¸ä¸ªä¸åå符 ( _)ã
å¦æä¸å¥ä»£ç 太é¿ï¼æ æ³å¨ä¸è¡å åä¸ï¼ä¸å æ¬æ³¨éï¼ï¼åå¯ä»¥å¨ä¸ä¸è¡ç»§ç»ï¼å¨è¡çæ«å°¾ç¨ç»è¡å符表示ä¸è¡å°æªç»æï¼ç»è¡å符æ¯ä¸ä¸ªç©ºæ ¼å ä¸ä¸ªä¸åå符 ( _)ï¼
Sub Form_MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)
ææ¬æ¡æ¾ç¤ºå¤è¡ææ¬ã
éè¿è®¾ç½® MultiLine å ScrollBars 两ç§å±æ§ï¼åªè½å¨è®¾è®¡ç¨åºæ¶è®¾ç½®ï¼ï¼å¯ä»¥æ¹å TextBox çå¤è§åè¡ä¸ºã
æ MultiLine å±æ§è®¾ä¸º Trueï¼å¯ä»¥ä½¿ TextBox å¨è¿è¡æ¶æ¥åææ¾ç¤ºå¤è¡ææ¬ãåªè¦æ²¡ææ°´å¹³æ¹å ScrollBarï¼å¤è¡ TextBox
ä¸çææ¬ä¼èªå¨æåæ¢è¡ãScrollBars å±æ§ç缺çå¼è¢«è®¾ç½®ä¸º 0ï¼Noneï¼ãèªå¨æåæ¢è¡çå»ç¨æ·å¨è¡å°¾æå
¥æ¢è¡ç¬¦ç麻ç¦ãå½ä¸è¡ææ¬å·²è¶
è¿æè½æ¾ç¤ºçé¿åº¦æ¶ï¼TextBox èªå¨å°ææ¬æåå°ä¸ä¸è¡æ¾ç¤ºã
å¨è®¾è®¡æ¶ï¼ä¸è½å¨âå±æ§âçªå£è¾å ¥æ¢è¡ç¬¦ãå¨è¿ç¨ä¸ï¼å¯ä»¥éè¿æå ¥ä¸ä¸ªå车å ä¸æ¢è¡ç¬¦ï¼ANSI å符 13 å 0ï¼æ¥äº§çä¸ä¸ªè¡æç¹ãä¹å¯ä»¥ç¨å¸¸é vbCrLf æå ¥ä¸ä¸ªå车ä¸æ¢è¡ç¬¦ç»åã
ä¸é¢çäºä»¶è¿ç¨æ¯å¨å è½½çªä½æ¶ï¼æ两è¡ææ¬æ¾å
¥ä¸ä¸ªå¤è¡ TextBox (Text1) ä¸ç示ä¾ã
Sub Form_Load ()
Text1.Text = "Here are two lines" _
& vbCrLf & "in a text box"
End Sub
æ°å¼ 10 å 13 å¯ä»¥åå«è½¬æ¢ä¸ºæ¢è¡ç¬¦åå车符ãè¿äºå符é½æ²¡æå¾å½¢è¡¨ç¤ºï¼ä½æ¯å¯¹äºä¸åçåºç¨ç¨åºï¼è¿äºå符å¯è½ä¼å½±åææ¬çæ¾ç¤ºææã
å符串表达å¼ï¼ä½ä¸ºæ¶æ¯æ¾ç¤ºå¨å¯¹è¯æ¡ä¸ãprompt çæ大é¿åº¦å¤§çº¦æ¯ 1024 个å符ï¼è¿åå³äºæ使ç¨çå符ç宽度ãå¦æ prompt ä¸å
å«å¤ä¸ªè¡ï¼åå¯å¨åè¡ä¹é´ç¨å车符(Chr(13))ãæ¢è¡ç¬¦ (Chr(10)) æå车æ¢è¡ç¬¦çç»å (Chr(13)& Chr(10)) 以åéåè¡ã