VB ¿Ø¼þÀà - VB / ¿Ø¼þ
vb ÖеÄrichtextbox¿Ø¼þÖÐÈçºÎÅжÏËüÊÇ·ñ´æÔÚÊý¾Ý£¬°üÀ¨ÓÐͼÐΣ¬¿ÉÄÜÈ«ÊÇ¿Õ¸ñ
զûµÃ¸ßÊÖÖ¸½Ìѽ£¬¼±Ñ½
textrtf»¹ÊÇrtftextÀ´×Å
len(richtextbox.text) ÊÇ·ñ´óÓÚ 0
¶¼²»¶Ô°É
ѧϰѧϰ
ÅжÏÊÇ·ñÓÐÊý¾Ý
ÅжÏlen(richtextbox)ÊÇ·ñΪ0
¿Õ¸ñÈçºÎÅжÏ,ÀûÓÃÑ»· ÅжÏÊÇ·ñÿһ¸öµÄASCIIÖµ
ͼƬµÄ ¾Í²»ÏþµÃÁË..
¶àл£¬µ«ÊÇÎÊÌ⻹ÊÇû½â¾ö£¬»¹ÓÐÄÄλ¸ßÊÖ½â´ðÂð
ÄѵÀTextRTF»¹²»¹»?
Ä㻹¿ÉÒÔÏÈÅжÏtext,ÔÙÅжÏOLEObjects,ÕâÒ²²»ÐÐÂð?
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
xmlDoc1.loadXML(h)×ÜÊÇ·µ»Øfalse£¬ÎªÊ²Ã´£¿Ð»Ð»°ïæ»Ø´ðÒ»ÏÂ
hÊÇʲôÄØ¡£¡£¡£¡£¡£¡£¡£¡£¡£
hÊÇxml¸ñʽµÄ×Ö·û´®
ÄãÊÇÏë´ò¿ª¡£XML¸ñʽµÄÎļþ°É£¿
ÎÒÊÇ°Ñh·ÅÔÚxmlDoc1ÀÓÃxmlDoc1.loadXML(h)£¬È»ºóÈ¡xmlDo ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......