ÎÒÓиöLISTBOXÈçºÎ°ÑÀïÃæµÄÈ«²¿Êý¾Ýµ¼³öµ½ÎÒÑ¡ÔñµÄtxtÎļþÀïÃæ.ÎÒµ¼ÈëÊÇÕâÑù×öµÄ,Äǵ¼³öÓ¦¸ÃÔõÑùÄØ.
Dim d As String
CommonDialog2.Filter = "ËùÓÐÎļþ(*.*)|*.*"
CommonDialog2.ShowOpen
d = CommonDialog2.FileName
Open d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
List1.AddItem te ......
ÕâÊÇVBÖеÄÁ½¶Î´úÂë.¿´²»Ã÷°×.Çë¸ßÈËÖ¸½Ì
Private Declare Function setWindowPos Lib "user 32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetUserName Lib &quo ......
ÓÐûÓÐÈËÖªµÀÕâ¾äVB´úÂ룺
G.DrawImage(My.Resources.ResourceManager.GetObject("P" & Int(Rnd() * 5) + 1), New Rectangle(I * 16 + 2, 2, 16, 16), New Rectangle(0, 0, 16, 16), GraphicsUnit.Pixel)
»»³ÉC#ÊÇʲôÒâ˼£¿
ResourceManager.GetObject ·µ»ØÖ¸¶¨µÄ Object ×ÊÔ´µÄÖµ¡£
DrawImage(I ......
VBÖÐ µÄDataEnv1.Connection.ConnectionString=connstring
ÓÐʲôÓÐ .ÒѾ¶¨ÒåÁËÒ»¸öÊý¾Ý¿âµÄÁ¬½Ó
µ«DataEnvl ÊÇϵͳ¶¨Ò廹³ÌÐòÔ±¶¨Òå
DataEnv1òËÆ ÊǸö±¨±í¿Ø¼þ
Êý¾Ý»·¾³£¨DataEnvironment£©ÊÇϵͳ¶¨ÒåµÄ£¬¸÷ÖÖÊôÐÔÒª³ÌÐòԱд´úÂëÐ޸ģ¬¿ÉÓÃÊó±êÓÒÑ¡Ôñ¼üÊôÐÔÈ¥Ð޸ġ£
......
ÔÚVBÖÐÈçºÎʵÏÖµ¥»÷Ò»¸ö°´Å¥¾Í¿ÉÒÔ´ò¿ª¼ÆËã»ú¹ÜÀí¡¢±¾µØ×é²ßÂÔ¡¢ÍøÂçÊôÐÔ°¡£¡¿ÉÒÔÓÃshellº¯Êýµ÷ÓÃÂð£¿ÄǸÃÈçºÎʵÏÖÄØ£¿
Shell ("cmd /c gpedit.msc"), vbHide '´ò¿ª±¾µØ×é²ßÂÔ
Shell ("cmd /ccompmgmt.msc"), vbHide '´ò¿ª¼ÆËã»ú¹ÜÀí
ÔÚ¡°¿ªÊ¼²Ëµ¥¡±¡¢¹ÜÀí¹¤¾ß ÀïÃ棬ÓÒ»÷¸÷¹¤¾ß£¬Ñ¡Ôñ¡°ÊôÐÔ¡±£¬¾ ......
vb¶ÁÈ¡xmlÎļþ,´ó¼ÒºÃ,ÎÒÓÐÒ»¸öxmlÎļþ
<?xml version="1.0" encoding="GB2312" ?>
<NewDataSet>
<WorkFlow>
<FlowName>²âÊÔÁ÷³Ì1</FlowName>
<FlowGUID>441B264D</FlowGUID>
......
×ܼǼÊý:1659; ×ÜÒ³Êý:277; ÿҳ6 Ìõ;
Ê×Ò³ ÉÏÒ»Ò³ [3] [4] [5] [6] 7
[8] [9] [10] [11] [12] ÏÂÒ»Ò³ βҳ