Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

vb³õѧÕßÇó½ÌVBÁ·Ï°Ìâ

µÚÒ»Ì⣺ ʵÏÖ°´Å¥µÄÒþ²ØºÍ²»¿ÉÓÃ

µÚ¶þÌ⣺ʵÏÖ×Ö·ûµÄÆ¥Åä

µÚÈýÌ⣺ ʵÏÖÊýÖµµÄ¼Ó¼õ³Ë³ý,

µÚËÄÌâ¡¢µ±Æô¶¯´°Ìåʱ£¬´°Ìå±³¾°É«ÎªÀ¶É«£¬²¢ÇÒÔÚ´°ÌåÉÏÒÆ¶¯Êó±êʱ£¬´òÓ¡ºìÉ«µÄ¡±ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡±

µÚÎåÌâ¡¢×Ô¶¯Ëæ»ú²úÉúÁ½¸öÊý£¬·¶Î§50~150,µ±Á½ÕßÖ®ºÏΪ200ʱ£¬Í£Ö¹²úÉúËæ»úÊý¡£½«½á¹ûÏÔʾÔÚµÚÈý¸öÎı¾¿òÖÐ


×Ô¼ºÊÔ×Å×ö£¬²»»áµÄÔÙÎÊ

LJÌû..............


Âí¼Ð£¿

you need to try that.

µÚÒ»Ì⣺ ʵÏÖ°´Å¥µÄ
  Òþ²Ø  Command1.Value=False
  ²»¿ÉÓà     Command1.Enabled = False

µÚ¶þÌ⣺ʵÏÖ×Ö·ûµÄÆ¥Åä
      Dim s1 As String, s2 As String
    If intstr(1, s1, s2) > 0 Then
        MsgBox s1 & "º¬ÓÐ" & s2
    Else
        MsgBox "²»Æ¥Åä"
    End If

µÚÈýÌ⣺ ʵÏÖÊýÖµµÄ¼Ó¼õ³Ë³ý,
   
    i=a+1
    i=a-1
    i=a*1
    i=a / 1

µÚËÄÌâ¡¢µ±Æô¶¯´°Ìåʱ£¬´°Ìå±³¾°É«ÎªÀ¶É«£¬²¢ÇÒÔÚ´°ÌåÉÏÒÆ¶¯Êó±êʱ£¬´òÓ¡ºìÉ«µÄ¡±ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡±
Private Sub Form_Load()
  Me.BackColor = vbBlue
  Me.ForeColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   


Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VBÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ