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

VB ÓÐû·½·¨°Ñrtf »òtxtÎı¾ÄÚÈÝת³ÉBMPͼƬ

ÈçÌâ
Èç¹ûÊÇtxt£¬
¿ÉÒÔ½«ÆäÄÚÈÝÖðÐлòÖð¶Î¶Áµ½×Ö·û´®ÖУ¬
È»ºóÓÃForm»òPictureBox¿Ø¼þµÄPrint·½·¨ÏÔʾ
ÔÙʹÓô°¿Ú½ØÆÁ¹¦Äܱ£´æµ½bmpÎļþ

Ò²¿ÉÒÔÓÃVBµ÷ÓÃWord.Application¶ÔÏóÔÚWordÀïÃæ´ò¿ªÏàÓ¦txt»òrtfÎļþ£¬ÔÙ½«Word´°¿Ú½ØÆÁ±£´æµ½bmpÎļþ

rtf¿ÉÒÔloadµ½richeditÖУ¬ÔÙ±£´æ½çÃæ¾Í²î²»¶àÁË¡£


ÎÒµÄÏë·¨¾ÍÊǽ«Îı¾¶Á½ørichtextºó£¬Í¨¹ý»ñµÃÎı¾¿òµÄhwnd£¬È»ºó½ØÆÁÔÙ±£´æ£¬¾Í´ïµ½LZµÄÒªÇóÁË

¹Ø×¢ÏÂ.

½è¼øchenjl1031·¢±íµÄÎı¾¿ò¿Ø¼þText1ÖÐÏÔʾλͼÊÇ¿ÉÒԵģ¬ÕâÐèÒªÓÃAPIº¯ÊýBitBlt½«Î»Í¼´ÓPicture1¸´ÖƵ½Text1ÖУ¬ÒªÏȽ¨Á¢DC¡£´úÂë×÷ÐÞ¸Ä:
VB code:
Option Explicit
Private Declare Function GetDC Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32.dll" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function BitBlt Lib "gdi32.dll" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY As Long = &HCC0020

Private Sub Command1_Click() '½«TEXTBOXÎı¾×÷ΪͼÏóתµ½PICTUREBOXÖÐ
Dim TextDC As Long
Dim Wpic As Long, Hpic As Long
Wpic = Picture1.Width
Hpic = Picture1.Height
'È¡µÃÎı¾¿òDC
TextDC = GetDC(Text1.hwnd)
Call BitB


Ïà¹ØÎÊ´ð£º

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
  number As Single
  score As Integer
  name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
 i = 0
&nbs ......

Ö»»áVB£¬ÏÖÔÚÏëÖØÐÂѧÃÅÓïÑÔ - VB / ·Ç¼¼ÊõÀà

Ö»»áVB£¬µ±¹ý1ÄêµÄVB³ÌÐòÔ±
ÏÖÔÚÏëÓëʱ¾ã½ø£¬Ñ§ÄÄÃÅÓïÑÔºÃÄØ
vb.net ,C# ,Java, »¹ÊÇVC++?
ÄÄÃÅÄܹ»¿ìËÙµÄÉÏÊÖ£¬²¢×ªÐÍ£¿
C#£¬winform»òwebform¶¼¿ÉÒÔ

vb.net

VC++

ÒýÓÃ
VC++
Âé·³ÄÜ˵¸öÀíÓÉô¡£¡£¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ