Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÁù¸öÊýÈ¡×î´óÖµºÍƽ¾ùÊýµÄƽ·½

VERSION 5.00
Begin VB.Form Form2
   AutoRedraw      =   -1  'True
   Caption         =   "¼ÆËã½çÃæ"
   ClientHeight    =   4905
   ClientLeft      =   4965
   ClientTop       =   3630
   ClientWidth     =   5715
   LinkTopic       =   "Form2"
   ScaleHeight     =   4905
   ScaleWidth      =   5715
   Begin VB.CommandButton Command1
      Caption         =   "¼ÆËã"
      Height          =   495
      Left            =   2520
      TabIndex        =   11
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton Command2
      Caption         =   "Çå¿Õ"
      Height          =   495
      Left            =   4320
      TabIndex        =   12
      Top&


Ïà¹ØÎĵµ£º

ת£ºWinFormʹÓÃWebService×Ô¶¯Éý¼¶ £¨VB + .Net£©

ת×Ô£ºhttp://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html 
 
WinFormʹÓÃWebService×Ô¶¯Éý¼¶
2009-08-08 10:49
winform³ÌÐòÏà¶Ôweb³ÌÐò¶øÑÔ£¬¹¦ÄܸüÇ¿´ó£¬±à³Ì¸ü·½±ã£¬µ«Èí¼þ¸üÐÂÈ´Ï൱Âé·³£¬Òªµ½¿Í»§¶Ëһ̨һ̨µØÉý¼¶£¬Ãæ¶ÔÕâ¸öʵ¼ÊÎÊÌ⣬ÔÚ×î½üµÄÒ»¸öСÏîÄ¿ÖУ¬±¾ÈËÉè¼ÆÁËÒ»¸öͨ¹ýÈí ......

vbÒÆ¶¯´°ÌåµÄ´úÂë

Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Pri ......

ÈçºÎÓÅ»¯VB³ÌÐò

ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú 
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËÙ¶È£¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ ......

vbʵÏÖÍøÒ³×Ô¶¯Ìî±í

http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
 http://topic.csdn.net/t/20020113/14/474848.html
Ö±½ÓÔËÐÐÍøÒ³ÖеÄJavaScript£º
function alllefttab()
WebBrowser1.Document.par ......

VB²Ù×÷WORD

 Dim wdapp As Word.Application
    Dim wddoc As Word.Document
    Dim wdtable As Word.Table
   
    Set wdapp = CreateObject("word.application")
   
    Set wddoc = wdapp.Documents.Add
   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ