VBç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
TextBox å¨ç¼ºçæ åµä¸åªæ¾ç¤ºåè¡ææ¬ï¼ä¸ä¸æ¾ç¤º ScrollBarãå¦æææ¬é¿åº¦è¶ è¿å¯ç¨ç©ºé´ï¼ååªè½æ¾ç¤ºé¨åææ¬ãéè¿è®¾ç½® MultiLine å ScrollBars 两ç§å±æ§ï¼åªè½å¨è®¾è®¡ç¨åºæ¶è®¾ç½®ï¼ï¼å¯ä»¥æ¹å TextBox çå¤è§åè¡ä¸ºã