A. 用VB編寫一個電腦WORD功能(保存、剪切、粘貼、復制等)的程序
1.
VB6 中有一個對象 clipboard ,通過它可以操作系統的剪貼板
2.
看看 VB6 中的 clipboard 對象的一些方法:
clear '清空剪貼板
getdata '從剪貼板中獲得指定格式的圖形
gettext '從剪貼板中獲得指定格式的文本信息
getformat '檢查剪貼板中的對象格式
setdata '把圖形放入剪貼板
settext '把文本信息放入剪貼板
3.具體代碼
'復制至粘貼板
Clipboard.SetText Text1.Text
'粘貼出來
Text1.Text = Clipboard.GetText
'剪切
Text1.Text = Clipboard.GetText
Clipboard.Clear
有任何疑問請追問,滿意請採納,謝謝。
B. word 中的圖片怎麼一步到位的弄成一個大小
在word中按Alt+F8打開宏創建窗口,輸入宏名之後(如resize_pics),點擊「創建」按鈕進入Visual Basic 編輯器窗口,將如下代碼復制到Visual Basic 編輯器窗口的End Sub上面一行:
Dim n '圖片個數
On Error Resume Next '忽略錯誤
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes類型圖片
ActiveDocument.InlineShapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.InlineShapes(n).Width = 300 '設置圖片寬度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes類型圖片
ActiveDocument.Shapes(n).Height = 400 '設置圖片高度為 400px
ActiveDocument.Shapes(n).Width = 300 '設置圖片寬度 300px
Next n
然後關掉VB編輯器窗口,在word中按Alt+F8重新打開宏窗口,選擇剛才創建的宏,單擊「運行」按鈕即可批量修改word中的圖片大小。
C. 請問vb.net2015的裁剪圖片的程序要怎麼寫
用點陣圖對象的Clone 方法就可以獲取圖片某個區域成一個新的點陣圖對象,下面例子:
PrivateSubForm1_Click(senderAsObject,eAsEventArgs)HandlesMe.Click
DimimgAsNewBitmap("d: 15.jpg")
DimrcAsRectangle=NewRectangle(500,500,600,600)'起點和長寬
DimnewImgAsBitmap=img.Clone(rc,Imaging.PixelFormat.Format32bppArgb)
Me.CreateGraphics.DrawImage(newImg,0,0)
EndSub
D. VB截圖的快捷鍵是什麼
按 Alt+Print Print鍵在del的上面 再上面就是 答案補充 之後到word里 ctrl+V粘貼就可以了
E. vb如何任意截屏
'模塊中
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) _
As Long
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare Function BitBlt Lib "gdi32" _
(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
'form1中
Private Sub Command1_Click()
Dim hDCtmp As Long, picWidth As Double, picHeight As Double
Dim x As Double
Dim y As Double
x = Val(Text2.Text)
y = Val(Text3.Text)
picWidth = Val(Text3.Text)
picHeight = Val(Text4.Text)
hDCtmp = GetDC(0)
BitBlt Picture1.hdc, 0, 0, picWidth, picHeight, hDCtmp, x, y, vbSrcCopy
ReleaseDC 0, hDCtmp
End Sub
目的: 將屏幕按照指定坐標和大小進行截取成圖,在picture1顯示
問題: 大小是相同了,為什麼截取的坐標不對,只是屏幕上的左上
相信大家都用過QQ截圖功能。不過很多人並沒有真正掌握好它的用法。將QQ截圖與其它截屏和制圖軟體配合使用,會有意想不到的效果。
獲取顏色的RGB值
我們在編輯圖片或網頁的時候,經常需要獲取某種顏色的「RGB值」,所以很多人都安裝了第三方的顏色吸取工具。其時用QQ截圖鍵即可獲取屏幕上任意顏色的RGB值。
當按下「Ctrl+Shift+A」彈出「截圖」提示框時,提示框中的「當前像素RGB」即為當前滑鼠屏幕位置的顏色RGB值,將滑鼠移動到你想查看的屏幕顏色上即可獲得相應的RGB值(如圖1)。
圖1精確截取圖片大小
有時我們對要使用的截圖尺寸有嚴格要求,比如論壇簽名或QQ頭像等。用QQ截圖鍵可以按尺寸精確截取,一步到位無需再進行後期裁剪了。
按下QQ截圖鍵,按住滑鼠不放選取截取范圍時,在滑鼠上方會有一個信息框顯示當前范圍的詳細信息,其中「矩形大小」就是以像素來表示的圖片的尺寸大小,括弧內的數字分別表示的是長和高(如圖2)。松開滑鼠調整截圖框時,對照「矩形大小」就可以按需要的尺寸來精確截圖范圍,然後用滑鼠點住截圖框將截圖框拖到要截取的圖片上,雙擊即可獲得所需尺寸的圖片了。
圖2圖片拼貼好幫手
大部分的截圖軟體一次只能截取一張圖片,當要截取多張圖片並進行拼貼組合時,就需要一張一張截取全部保存後再進行拼貼操作,非常麻煩。
我們知道用QQ截圖鍵截取的圖片可以在任一個可以粘貼圖片的程序中使用,這樣只需用截圖軟體進行一次截圖操作,剩下的圖片用QQ截圖鍵來截取,然後依次粘貼到截圖軟體的窗口中即可快速進行拼貼操作了,是不是很方便啊。
小提示:QQ截圖鍵無需打開聊天窗口即可使用,截取的圖片在任一可粘貼圖片的程序窗口中如畫圖、Word等,使用「粘貼」命令即可使用
F. VB怎麼控制Word裡面的圖片
一直沒人回答你,大概是覺得你問的太不認真了,你具體想要什麼效果,單從你發的這幾個字,你是不是想用vb做個程序代替你處理Word裡面的圖片?如果是這樣那就幾乎不能做到了,或者是我才疏學淺,幫不到你了
G. 如有沒辦法,當把圖片剪切放入word時自動設置其圖片大小
不是版本的問題,這是一個復制的CAD。
在CAD基礎上的顯示窗口的大小,以確定范圍的內容復制,副本,所以當你復制,它是最好的調整需要復制的內容的窗口,在CAD,允許完整的窗口(變焦或雙擊滑鼠左鍵),然後選擇您需要的部分進行復制,而不是選擇的CAD圖紙粘貼到WORD,然後切割工具菜單,選擇「視圖 - 工具欄 - 圖片,彈出特寫圖片工具欄(粘貼在大選前的圖形,然後單擊「裁剪」工具「),滑鼠左鍵選擇並按住的四邊切識別,移動到所需的位置,也不需要顯示的裁剪,確認後,再選擇一張圖片,然後使用滑鼠的識別拖動圖像的四角,放大到所需的位置。
H. 如何利用vb編輯word
1.安裝word
2.在VB開發環境里引入Office Word對象
3.在按鈕中用CreateObject或New來產生一個word對象
4.調用該對象,直接實現替換等操作
5.如果不知道用什麼語句,可以用word里的宏編輯器記錄所進行的操作,把生成的vbA代碼拷貝到vb環境中即可