VB mapinfo
ÓÃVBдÁËÁ½¾ä´úÂ룬ʵÏÖÈÃmapinfoÔËÐÐreshow.mbxµÄ¹¦ÄÜ¡£ÈçÏ£º
Private Sub Form_Load()
Set mapinfo = GetObject(, "MapInfo.Application")
mapinfo.do "Run Application ""F:\err\reshow.MBX"" "
End Sub
ÉÏÃæ´úÂëµÄÈ·¿ÉÒÔÖ´ÐУ¬ÏÖÔÚÏëÖªµÀÔÚVC++ÖÐʵÏÖͬÑùµÄ¹¦ÄÜ£¬´úÂëÊÇʲô£¿ ¾ÍÁ½¾ä£¬ºÙºÙ£¬ÏÈлл¸÷λÀ²¡£
1·Ö˵²»Ã÷°×¡£
Á½¾äÖÁÉÙÒª2·Ö¡£
¹þ¹þ£¬ÎÒÊÇÐÂÊÖ£¬²»Ì«¶®¹æ¾Ø¡£ÎÒ¼Óµ½5·ÖÈçºÎ¡£Ð»Ð»¸÷λÁË¡£
ΪÁËÏÔʾ³ÏÒ⣬¼Óµ½20·ÖÁË¡£Ð¡µÜÐÂÀ´£¬²»Òª±ÆÅ¼ÆÆ²ú¹þ£¬ºÇºÇ¡£
ºÇºÇ£¬°ï¶¥
¹»Òâ˼£¬Ð»À²Ðֵܣ¡
Ó¦¸ÃÈ¥c++ÂÛ̳ÎÊ
ллÌáÐÑ
Ïà¹ØÎÊ´ð£º
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÔÚVB£¬
dim a as long
Ôõô¶Ô a ½øÐÐÓÒÒÆÎ» 24?
Ôõô¶Ô a ½øÐÐÓÒÒÆÎ» 16?
Ôõô¶Ô a ½øÐÐÓÒÒÆÎ» 8?
Ôõô¶Ô a ½øÐÐÓÒÒÆÎ» 0?
VB³ÌÐòÖÐʵÏÖ×Ö½ÚÒÆÎ»²Ù×÷
VB code:
'2.Âß¼ÓÒÒÆ
Public ......