ÈçºÎ¸øVBµÄform¼Ó¹ö¶¯Ìõ
VBµÄformÓиö±³¾°Í¼Æ¬ÊôÐÔ£¬ÎÒÒªÔڻͼµÄ¹ý³ÌÖÐ ¸øVBµÄform±³¾°¹ØÁªÒ»¸ö±³¾°Í¼Æ¬ ÓеÄʱºò±³¾°Í¼Æ¬ºÜ´ó£¬³¬¹ýÁËformµÄ×î´ó³Ì¶È ÎÒÏëÎÊÏ£¬Ôõô¸øformÌí¼Ó¹ö¶¯Ìõ£¬ÔÚÍ϶¯µÄʱºò¿ÉÒÔ¿´µ½Õû·ùµÄͼƬ ͼƬµÄ´óС²»ÖªµÀ Õâ²»ÊÇVB.NET£¬Ã»ÓÐautoscrollÊôÐÔ¡£ Ï£Íû¸÷λ´óÏÀ°ï°ï棬×îºÃÄÜÌù³ö´úÂë ·Ç³£¸Ðл£¬ÔÚÏߵȴý
ÒªÖªµÀͼƬ´óС£¬È»ºóÉèÖùö¶¯ÌõMAXVALUE£¬ÔÚʼþÀïÒÆ¶¯£¬Ã»×Ô¶¯µÄ¡£ÒýÓà Ҫ֪µÀͼƬ´óС£¬È»ºóÉèÖùö¶¯ÌõMAXVALUE£¬ÔÚʼþÀïÒÆ¶¯£¬Ã»×Ô¶¯µÄ¡£ ͼƬµÄ´óСÊÇËæ»úµÄ ÎÒÒ²²»ÖªµÀ¿Í»§Òª×¼±¸¶à´óµÄͼƬ ÒòΪÿ¸öµçÄÔ·Ö±æÂʲ»Ò»Ñù ±ðÓà form Á˰É.... ÒýÓà ±ðÓà form Á˰É.... ²»ÓÃformÄÇÓÃʲô£¿ Äܸø¸öÈç¹û½â¾öµÄÀý×Óô£¿ ͨ¹ýÊôÐÔÉèÖõı³¾°Í¼Æ¬²»Äܹö¶¯£¬½¨Òé×Ô¼ºÓà PaintPicture ½øÐÐÏÔʾ¡£ ÓÃPictureBox Õâ¸öÀý×ÓÓùö¶¯ÌõÒÆ¶¯ PictureBox ¿Ø¼þ´©¹ý´°Ìå¡£ÒªÊÔÓôËÀý£¬ÏȰѴúÂëÕ³Ìùµ½°üº¬Ò»Ð¡µÄ PictureBox ¿Ø¼þºÍ HScrollBar ¿Ø¼þµÄ´°ÌåµÄÉùÃ÷²¿·Ö£¬È»ºó°´ F5 ¼ü£¬²¢µ¥»÷¹ö¶¯Ìõ¡£ Private Sub Form_Load () HScroll1.Max = 100 ' ÉèÖÃ×î´óÖµ. HScroll1.LargeChange = 20 ' Çû÷ 5 ´Îºó´©¹ý. HScroll1.SmallChange = 5 ' Çû÷ 20 ´Îºó´©¹ý. Picture1.Left = 0 ' ͼÐδÓ×ó±ß¿ªÊ¼. Picture1.BackColor = QBColor(3) ' ÉèÖÃͼÐοòµÄÑÕÉ«. End Sub Private Sub HScroll1_Change () ' °´ÕÕ¹ö¶¯ÌõÒÆ¶¯Í¼ÐÎ. Picture1.Left = (HScroll
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿ ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ. datasetÊÇADO.NET¶ÔÏó Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿ dim f as integer dim b() as byte dim s as string dim L as long f=freefile() open "abc.xml" for binary access read as #f ......
Ôõô°ÑÒÑÖªµÄÊý¾Ý±£´æ³ÉxmlÎļþ£¬ÏÖÔÚÒÑÖªµÄÊý¾ÝÊÇ <?mso-application progid="Excel.Sheet"?> <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns:o=& ......
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 ... ......