VB »ñȡϵͳ26ÏîÅäÖÃÐÅÏ¢_VB.net_ºÚ¿Í·ÀÏßÍø°²·þÎñÆ÷ά»¤»ùµØ--Powered by WWW.RONGSEN.COM.CN

VB »ñȡϵͳ26ÏîÅäÖÃÐÅÏ¢

×÷ÕߣººÚ¿Í·ÀÏßÍø°²VB½Ì³Ì»ùµØ À´Ô´£ººÚ¿Í·ÀÏßÍø°²VB½Ì³Ì»ùµØ ä¯ÀÀ´ÎÊý£º0

±¾Æª¹Ø¼ü´Ê£ºÐÅÏ¢ÅäÖÃϵͳ»ñÈ¡
ºÚ¿Í·ÀÏßÍø°²ÍøѶ£ºÓÃ×î¼òµ¥µÄ´úÂë»ñȡϵͳÐÅÏ¢°üÀ¨£¨ÏµÍ³ÅÌ·û£¬ÏµÍ³Ä¿Â¼£¬Óû§Ãû£¬ÏµÍ³Òýµ¼µÈ26ÏîÅäÖÃÐÅÏ¢£¡£¡£©Option Explicit'ÉèÖÃText1µÄMultiLineÊôÐÔΪTrue'ÉèÖÃText1µÄScrollBarsÊôÐÔΪ 2 - V...

ÓÃ×î¼òµ¥µÄ´úÂë»ñȡϵͳÐÅÏ¢°üÀ¨£¨ÏµÍ³ÅÌ·û£¬ÏµÍ³Ä¿Â¼£¬Óû§Ãû£¬ÏµÍ³Òýµ¼µÈ26ÏîÅäÖÃÐÅÏ¢£¡£¡£©

Option Explicit
'ÉèÖÃText1µÄMultiLineÊôÐÔΪTrue
'ÉèÖÃText1µÄScrollBarsÊôÐÔΪ 2 - Vertical
Private Sub Form_Load()
Dim i As Integer
Dim txt As String

    For i = 1 To 10000
        If Environ(i) <> "" Then
            txt = txt & Environ(i) & vbCrLf
        Else
            Exit For
        End If
    Next i
    Text1.Text = txt
End Sub

    ºÚ¿Í·ÀÏßÍø°²·þÎñÆ÷ά»¤·½°¸±¾ÆªÁ¬½Ó£ºhttp://www.rongsen.com.cn/show-14688-1.html
Íøվά»¤½Ì³Ì¸üÐÂʱ¼ä:2012-04-03 01:12:29  ¡¾´òÓ¡´ËÒ³¡¿  ¡¾¹Ø±Õ¡¿
ÎÒÒªÉêÇë±¾Õ¾£ºNµã | ºÚ¿Í·ÀÏß¹ÙÍø |  
רҵ·þÎñÆ÷ά»¤¼°Íøվά»¤ÊÖ¹¤°²È«´î½¨»·¾³£¬ÍøÕ¾°²È«¼Ó¹Ì·þÎñ¡£ºÚ¿Í·ÀÏßÍø°²·þÎñÆ÷ά»¤»ùµØÕÐÉ̽øÐÐÖУ¡QQ:29769479

footer  footer  footer  footer