VB´úÂë:
MSComm1.CommPort = CShort(VB6.Format(strCommPort))
»úÆ÷ÈËת»»³ÉµÄC#´úÂ룺
MSComm1.CommPort = short.Parse(Strings.Format(strCommPort, ""));
ÎÊÌâÊÇ µ÷ÊÔµÄʱºòÌáʾ¡°ÊäÈë×Ö·û´®²»ÕýÈ·¡±£¬ÎÒ¸ÃÔõô¸Äд°¡£¬Çó¸ßÊÖ°ïÏÂ棬Íò·Ö¸Ð¼¤£¡£¡£¡
½«×Ö·û´®×ª»»ÎªShort
Â¥Ö÷×Ô¼ºÈ¥ ......
VB6.0°æ±¾£º
For i = 1 To 60
Retstr(i) = ReadfromIni(App.Path & "\PointTable2.ini", "Items", "Itm" & (i))
Set oitem(i) = TheOPCitems.AddItem(Retstr(i), i)
oitem(i).IsActive = True
Next i
VB.NET°æ±¾£º
For i = 1 ......
c# ¿ª·¢winformʱµ÷Ó÷¿¿¨µÈdll(vb)¿ª·¢µÄÀý×ÓËÓÐ?
ÎҲο¼ÍøÂçÉϵÄ×ö×ÜÊÇÌáʾ´íÎó,ÎÒ²»ÖªµÀÎÒÄÄÀï´íÁË,ËÓоßÌåµÄÀý×ÓÌùÉÏÀ´,»òÕß·¢ÎÒÓÊÏä,Ôڴ˶à¶à¸Ðл!
ÎÒÈÏΪӦ¸ÃÊDz»ÄѵÄ,¿ÉÊÇ×ÜÊǸ㲻¶¨,ÎÒ¿´Á˽ӿڿª·¢³ÌÐò,¾ÍÊǵ÷ÓÃÀïÃ漸¸ö·½·¨.¶Á¿¨,ÖÆ¿¨,¾Í¼¸¸ö¶¯×÷,ÕâÖÖ½»»¥ÐԵŦÄܷdz£ÈÃÎÒÃÇÕâЩûÓÐŪ¹ýµÄÈË ......
ÎÒÏëÓÃpythonд·þÎñ¶Ë£¬C#д¿Í»§¶Ë£¬ÁíÍâÏë°Ñ¿Í»§¶ËC#ÖеĶÔÏóÐòÁл¯ºó´«¸ø·þÎñ¶Ë£¬ÓÃpython·´ÐòÁл¯ºóÖؽ¨¶ÔÏ󣬲»ÖªµÀÓÐûÓÐÕâ¸ö¿ÉÄÜ£¿Èç¹ûÓпÉÄÜÄÜ·ñÌṩ¸ö˼·£¿
Ò»ÇнÔÓпÉÄÜ¡£
˼·ÄãÒѾ˵µÄͦÇå³þµÄÁË¡£
ÒýÓÃ
Ò»ÇнÔÓпÉÄÜ¡£
˼·ÄãÒѾ˵µÄͦÇå³þµÄÁË¡£
µ«ÊÇC#¸úpythonÔÚÐòÁл¯Ê±ÊÇ·ñ»áÓ ......
CatalogClass cat=new CatalogClass();
cat.Creat(@"provider=microsoft.jet.oledb.4.0;data source="+path+";");
ÓÃÒÔÉÏ´úÂë´´½¨Îļþ³É¹¦ÁË£¬ÕÒµ½Îļþºó´ò¿ª£¬Ìáʾ²»¿Éʶ±ðµÄÊý¾Ý¿â£¬¿´µ½ÍøÉϵĴúÂ룬¶¼ÊÇÕâô´´½¨µÄ°¡£¬ÎªÊ²Ã´´ò²»¿ª°¡£¬ÓÃÓï¾ä²éѯÊý¾Ý¿âÀïÃæ´´½¨µÄ±í£¬Ò²Ã»±¨´í...ÊÇʲ ......
string strAdd = "update tb_Note set Note='" + richTextBox1.Text + "' where NoteCode='"+strflag +"'"
¶¼ÊÇÎı¾ÀàÐ͵Ä
ÍêÈ«ÕýÈ·¡£
Äã²»ÊÔһϾÍÌá¸ß
jf
ûÎÊÌâµÄ
µ«ÊÇËû¾Í˵Óï·¨´íÎó°¡
²»Ò»¶¨ÕýÈ·
Èç¹ûrichTextBox1Öк¬Óлá¸Ä±äSQLÓï ......