VB ÈçºÎ°´ÒªÇóÑ¡ÖÐcheckbox
¾ßÌåÎÊÌ⣺ ±íµ¥ÉÏÓÐ20¸öcheckbox ·Ö±ðΪ check1 check2 check3 check4 ........check20
Á½¸öÎı¾¿ò£º·Ö±ðΪtextbox1 textbox2
Ò»¸öÃüÁî°´Å¥£º command1
ÐèÒªÍê³ÉµÄÈÎÎñ£ºÔÚÎı¾¿ò1ÊäÈë 3 Îı¾¿ò2 ÊäÈë 7 µ¥»÷ÃüÁî°´Å¥ Ôò check3-----check7 ¸´Ñ¡ÉÏ
Ò²¾ÍÊÇʹµÃcheck3 check4..... check7.value=1 Îı¾¿òµÄÊý×ÖÊÇ¿ÉÒԸıäµÄ£¬±ÈÈçÊäÈë 5 ºÍ 12 Ôò check5-----check12 ¸´Ñ¡ÉÏ Ð»Ð»£¡
Ô±¾ÕâôÏëµÄ£º
ÉèÖñäÁ¿i dim i as integer
for i = val(text1.text) to val(text2.text)
check(i).value=1
next
²»¹ýËÆºõ²»ÐУ¬³õѧ Çë´ó¼Ò°ïæ £¬×îºÃÄܸø´úÂë лл
ÓÿؼþÊý×é°¡
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
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
......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......