¹ØÓÚVBµÄÒ»¸öСÎÊÌâ - VB / »ù´¡Àà
ÔÚVBÖÐÈçºÎʵÏÖµ¥»÷Ò»¸ö°´Å¥¾Í¿ÉÒÔ´ò¿ª¼ÆËã»ú¹ÜÀí¡¢±¾µØ×é²ßÂÔ¡¢ÍøÂçÊôÐÔ°¡£¡¿ÉÒÔÓÃshellº¯Êýµ÷ÓÃÂð£¿ÄǸÃÈçºÎʵÏÖÄØ£¿
Shell ("cmd /c gpedit.msc"), vbHide '´ò¿ª±¾µØ×é²ßÂÔ
Shell ("cmd /ccompmgmt.msc"), vbHide '´ò¿ª¼ÆËã»ú¹ÜÀí
ÔÚ¡°¿ªÊ¼²Ëµ¥¡±¡¢¹ÜÀí¹¤¾ß ÀïÃ棬ÓÒ»÷¸÷¹¤¾ß£¬Ñ¡Ôñ¡°ÊôÐÔ¡±£¬¾ÍÄÜ¿´µ½ËüÃǵ÷ÓõÄÖ´ÐÐÎļþ»òMSCÃüÁî¡£
ÓÃSHELLµ÷ÓÃÖ´ÐÐËüÃǾͿÉÒÔÁË¡£
Â¥ÉÏÓÃÁËvbHide£¬ÕâÊÇʹÔËÐкóµÄ´°¿ÚÒþ²ØÆðÀ´ÁË£¬²»ºÃ£¬Ó¦¸ÃÊÇÓÃvbNormal£¬Èô°¿ÚÕý³£ÏÔʾ£¬»òÕß×î´ó»¯Ò²¿ÉÒÔ¡£
VB code:
Shell ("cmd /c gpedit.msc")'´ò¿ª±¾µØ×é²ßÂÔ
Shell ("cmd /ccompmgmt.msc")'´ò¿ª¼ÆËã»ú¹ÜÀí
Shell ("cmd /ncpa.cpl")'´ò¿ªÍøÂçÁ¬½Ó
cmd¡¡
ps£º
´ó¼Ò°ï°ï棺http://topic.csdn.net/u/20100524/21/68c9d03a-7e09-46f7-b284-66a801857f8e.html?seed=1492863464&r=65687764#r_65687764
ѧϰ,,ѧϰ
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄÜ°ÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......