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

vb ¼òµ¥ÎÊÌ⣬Çë¸ßÊÖ°ïæ,ÔÚÏߣ¡£¡£¡ - VB / »ù´¡Àà

vb textÎı¾¿òµ±°´Ò»Ï»سµÊ±ÎªÎı¾¿òÎÞ·¨±à¼­ÔÙ°´Ò»ÏÂÓÖ¿ÉÒԱ༭£¿
²¹³äÎÊÌ⣬ÈçºÎʹ½¹µãÒ»Ö±±£³ÖÔÚÎı¾¿òÉÏ£¿
VB code:
Option Explicit

Private Sub Form_Load()
Timer1.Interval = 50
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Static i As Long
If KeyCode = vbKeyReturn Then
If i Mod 2 = 0 Then
Text1.Locked = True
i = i + 1
Else
Text1.Locked = False
i = i + 1
End If
End If
End Sub

Private Sub Timer1_Timer()
Text1.SetFocus
End Sub



Å££¡£¡

¶Ôһ¥´úÂ뾫¼òÒ»ÏÂ
VB code:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyReturn Then

Text1.Locked = Not Text1.Locked

End If
End Sub



¶¥......


Ïà¹ØÎÊ´ð£º

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb - VB / ·Ç¼¼ÊõÀà

Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

VBÏÂOCX¿É·ñʵÏÖÈçϹ¦ÄÜ£¿ - VB / ÍøÂç±à³Ì

ÎÒÏëÓÃVB×öÒ»¸öOCX£¨´¿²ËÄñ£¬ÁÙʱÐèÒªÓÃVB×öµã¶«Î÷£¬ÌØÀ´Çë½Ì£©£¬AÓû§£¨IP£º192.168.0.1£©ÓëBÓû§£¨IP£º192.168.0.2£©½øÐеã¶ÔµãµÄ·¢ËͽÓÊÕÏûÏ¢
ÒªÇó²ÉÓÃOCX·½Ê½£¬±ÈÈçAÓû§ÖªµÀBÓû§IP£¬ÎÒÖ±½Ó´«²Î£¨BµÄIP£©ÖÁOCX ......

ÇóÖú£ºC´úÂë¸Äд³ÉVB´úÂë - VB / »ù´¡Àà

Ë­ÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......

ÇóÖú£ºC´úÂëchange toVB´úÂë - VB / »ù´¡Àà

ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó­¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ