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
wdapp.Visible = True
wdapp.Activate
wdapp.Caption = "ICUÈËÔ±ÅÅ°à±í"
wdapp.Selection.Font.Name = "ËÎÌå"
wdapp.Selection.Font.Size = 22
wdapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wdapp.Selection.TypeText Text:="±êÌâ"
wdapp.Selection.TypeParagraph
wdapp.Selection.TypeParagraph
wdapp.Selection.Font.Name = "ËÎÌå"
wdapp.Selection.Font.Size = 20
'Ìí¼Ó±í¸ñ
Set wdtable = wdapp.ActiveDocument.Tables.Add(wdapp.Application.Selection.Range, Grid1.Rows, NumColumns _
:=8, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)
wdtable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
wdtable.Range.Font.Name = "ËÎÌå"
wdtable.Range.Font.Size = 10.5
wdtable.Cell(1, 1).Range.Text = "ÐÕÃû"
wdtable.Cell(1, 2).Range.InsertAfter "ÐÇÆÚÒ»"
wdtable.Cell(1, 3).Range.InsertAfter "ÐÇÆÚ¶þ"
wdtable.Cell(1, 4).Range.InsertAfter "ÐÇÆÚÈý"
wdtable.Cell(1, 5).Range.InsertAfter "ÐÇÆÚËÄ"
wdtable.Cell(1, 6).Ra
Ïà¹ØÎĵµ£º
ת×Ô£ºhttp://hi.baidu.com/sunward08/blog/item/cb64ac224657014dac34de2d.html
WinFormʹÓÃWebService×Ô¶¯Éý¼¶
2009-08-08 10:49
winform³ÌÐòÏà¶Ôweb³ÌÐò¶øÑÔ£¬¹¦ÄܸüÇ¿´ó£¬±à³Ì¸ü·½±ã£¬µ«Èí¼þ¸üÐÂÈ´Ï൱Âé·³£¬Òªµ½¿Í»§¶Ëһ̨һ̨µØÉý¼¶£¬Ãæ¶ÔÕâ¸öʵ¼ÊÎÊÌ⣬ÔÚ×î½üµÄÒ»¸öСÏîÄ¿ÖУ¬±¾ÈËÉè¼ÆÁËÒ»¸öͨ¹ýÈí ......
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³ÌÐò°ïÖú
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËٶȣ¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......