vb如何圖片評論

❶ excel中用vb批量修改工作表

excel中用vb批量修改工作表，根據你的補充描述和圖片信息來看，可以直接使用Excel自帶的VBA功能來完成，只有你簡單的懂一點就可以了。
首先第一張表為總表，第二張表做一個模板表，如圖一:
具體操作步驟如下:
1、按Alt+F11組合鍵進入VBA編輯器;
2、依次單擊「插入」--「模塊」，在模塊中進行書寫代碼，寫完了之後按F5執行代碼即可。代碼如下:
Sub 宏1()
Dim i
For i=1 to 32
Sheets(2).Copy After:=Sheets.Count
Sheets(i+2).Name=i
Sheets(i+2).Range(「B4」)=Sheets(1).Range(「A3」)
繼續添加代碼
Next
End Sub
圖一如下:

❷ 誰能告訴我VB中SystemParametersInfo啥意思，怎麼用

應用SystemParametersInfo函數可以獲取和設置數量眾多的windows系統參數。這個小程序就是運用了SystemParametersInfo函數來設置桌面的牆紙，而且程序可以讓我們選擇多幅牆紙圖片，程序會以一定的時間間隔自動改變牆紙。
我們先來看看SystemParametersInfo函數的定義和參數：
使用API函數之前必須先在程序中聲明如下：
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
具體的參見評論|

❸ 怎樣用VB怎樣建立三維坐標系

http://petrolist.blog.163.com/blog/static/88508439200810104315168/ VB 對surfer 繪制的等值線圖局部放大後的坐標定位中的應用石油軟體 2008-11-10 16:31 閱讀22 評論0 字型大小： 大大 中中 小小 鞏天寧，潘地林，陳旭輝
(安徽理工大學計算機科學與工程學院，安徽淮南232001)
摘要：針對使用VB 調用surfer 軟體提供的自動化介面，在繪制等值線圖的過程中調用外部控制項進行圖片放大後，無
法定位坐標以得到圖片中任意網格點的三維值問題，文章提出使用VB 的PaintPicture 函數放大surfer 軟體生成的等值線
圖，並通過導入surfer 軟體生成的grd 文件，推算圖片中任意一點所處的網格點以獲取該點的三維值的方法。
關鍵詞：Surfer 軟體；自動化；等值線圖；坐標定位；VB 嵌入式編程0 引言
Surfer 軟體是美國Golden Software 公司研製開發的基於Windows 操作系統的二維和三維繪圖軟體，它不僅提供了豐富的網格化和插值演算法，還具有強大的繪制等值線圖及相應的三維圖形的能力，是科技工作者特別是地學研究人員必備的軟體。該軟體提供了可嵌入編程的介面，Surfer 伺服器在後台運行，可以完全擺脫Surfer 的主控界面，在客戶程序界面中通過VB 嵌入式編程快速實現等值線圖的繪制。
對等值線圖常需要作兩種處理：局部放大和獲取特定點的三維值。載入AutoCAD Voloview Express 控制項可以做到對圖片的放大、縮小、移動等。Surfer 導出的grd 文件是用選定的插值演算法推算出的等值線圖中網格點的三維值（X、Y、Z 坐標的值）文件，通過分析grd 文件可獲取圖片內所有網格點的三維值。但使用外部控制項放大等值線圖後，坐標無法定位就成了獲取特定點的三維值的障礙。
本文使用VB 自帶的PaintPicture 方法編寫圖片放大函數，同時計算放大域內的網格行列數及放大域的起始網格位，從而在放大後的圖片中精確地推算出某點的網格坐標，確定其三維值。
1 具體流程
筆者參與的煤礦壓力報警項目中，需要調用Surfer 繪制等值線圖，繪制完等值線圖後需要根據客戶要求局部放大圖片，同時還需在任意時刻提供客戶關心點的三維值。這些工作的流程如下：
判斷Surfer 對象是否創建，如果沒有創建則創建，完成後導入原始數據並使用選定的演算法對其網格化插值後生成grd 文件。分析Surfer 生成的grd 文件，提取圖片上網格的行數、列數、網格坐標最小X 值與最大X 值、網格坐標最小Y 值與最大Y 值、所有網格的Z 值，分別保存在變數rows、cols、Hmin、Hmax、Vmin、Vmax 和一個data 數組中。
計算出每個網格在等值線圖坐標軸上橫坐標和縱坐標上的跨度：Hdeta=(Hmax- Hmin)/(cols- 1)、Vdeta=(Vmax- Vmin)/(rows- 1)；計算每個網格在VB 圖片框中X 軸和Y 軸上所佔的長度：SwPerGrid=Picture.ScaleWidth/cols、ShPerGrid=Picture.ScaleHeight/rows。 如果用戶需要放大圖片的某一部分，則獲取放大域在VB 圖片框坐標系中的始坐標和末坐標（x1，y1）、(x2，y2)，分別換算或在網格坐標系中的位置（X1grid、Y1grid）、（X2grid、Y2grid），換算公式：Xgrid=Int (x/SwPerGrid)、Ygrid=rows- 1- Int (y/ShPerGrid)；計算放大域中網格的行列數並從data 數組中提取選擇域內所有
網格的Z 值；使用PaintPicture 函數放大選擇域；重新計算Hmin、Vmin、SwPerGrid 和ShPerGrid 值。 如果用戶需要圖片中某點的三維值，則根據該點在VB 圖片框坐標系中的位置換算出其在網格坐標系的位置（按前面的換算公式）；通過網格坐標計算該點三維值：X=Xgrid*Hdeta+Hmin、Y=Ygrid*Vdeta+Vmin、Z=data Ygrid，Xgrid）。 簡化的流程圖如圖1 所示。2 程序設計
為簡化步驟，使用surfer 軟體繪制的等值線圖和該圖的grd 文件已經准備好放在程序文檔中，不需要在試驗程序中調用surfer 軟體現場繪制等值線圖並生成grd 文件。以下僅給出主要部分的偽代碼。
⑴ 定義圖片框picture1、picture2，載入Surfer 生成的等值線圖後從grd 文件中提取rows、cols、Hmin、Hmax、Vmin、Vmax、data()，並計算Hdeta、Vdeta、SwPerGrid、ShPerGrid（代碼略）。
⑵ 監聽圖片框1 的滑鼠移動事件，分別在三個標簽欄中顯示滑鼠所在點的三維值；監聽圖片框2 的滑鼠按下事件，記錄其位置（代碼略）；監聽圖片框2 的滑鼠移動事件，如果之前發生了按下事件，則繪制矩形框以標示出選擇放大區域（代碼略）；監聽圖片框2 的滑鼠松開事件，記錄其位置，計算選擇區內的網格數，保存選擇區內網格點的Z 值到數組，放大圖片。
Private Sub Picture1_Mous eMove(Button As Integer, Shift As
Integer,X As Single, Y As Single)
SwPerGrid=Picture1.ScaleWidth/cols
// 計算每個網格在VB 圖片框中所佔的寬度
ShPerGrid=Picture1.ScaleHeight/rows
// 計算每個網格在VB 圖片框中所佔的高度
Xgrid=Int(X/SwPerGrid)
// 計算選中的點所在的網格橫坐標
Ygrid=rows -1-Int(Y/ShPerGrid)
// 計算選中的點所在的網格縱坐標
Label1.Caption=Xgrid*Hdeta+Hmin
Label2.Caption=Ygrid*Vdeta+Vmin
Label3.Caption=pdata(Ygrid,Xgrid)
// 分別計算並顯示該點的三維值
End Sub
Private Sub Picture2_Mous eUp(Button As Integer,Shift As
Integer,X As Single,Y As Single)
X1grid=Int(X1/SwPerGrid)Y1grid=rows -1-Int(Y1/ShPerGrid)
// 計算始坐標在網格中的位置
X2grid=Int(X2/SwPerGrid)
Y2grid=rows -1-Int(Y2/ShPerGrid)
// 計算末坐標在網格中的位置
rows=Y1grid-Y2grid+1
cols=X2grid-X1grid+1
// 計算選中區域內網格的行數和列數
Picture1.PaintPicture Picture2 的放大域
For i=0 To rows -1
For j=0 To cols -1
pdata(i,j)=data(Y2grid+i,X1grid+j)
// 將選中區域內的數據保存
End Sub
2.3 程序運行結果
本程序實現了客戶需求：可以放大圖片的任意區域，並且放大後可以准確定位某點的三維值。如圖2 所示：左邊為圖片框1，右邊為圖片框2，客戶可以在圖片框2 中任意選擇一塊區域，選擇的區域會放大填充到圖片框1，並且在圖片框1 中滑動滑鼠可以在三個label 中顯示滑鼠所在點的三維值。

❹ vb 截取桌面圖片

自動定時截屏
'每隔一定時間，自動截取桌面圖像保存到指定的文件夾中
'圖片文件名為：P-00001.Bmp、P-00002.Bmp 等
'例子需控制項：Timer1、1Command1、Picture1，都採用默認設置
'標有 '***** 符號的語句可適當修改，以滿足個人的特殊要求

Private 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 RasterOpConstants) As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Dim ctCi As Long

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000 '*****每隔 1000 毫秒（1秒）保存一次
Picture1.AutoRedraw = True: Picture1.ScaleMode = vbPixels
Picture1.Move 0, 0, Screen.Width, Screen.Height
Picture1.Visible = False
Me.Caption = "自動定時截屏"
Command1.Caption = "開始截屏"
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
If Timer1.Enabled Then Command1.Caption = "暫停截屏" Else Command1.Caption = "開始截屏"
End Sub

Private Sub Timer1_Timer()
Dim nDC As Long, dl As Long, nPath As String, nName As String

nPath = "C:\MyPic" '*****保存的目的文件夾
If Dir(nPath, 23) = "" Then MkDir nPath

nDC = GetWindowDC(0)
'dl 返回非零表示成功，零表示失敗
dl = BitBlt(Picture1.hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleWidth, nDC, 0, 0, vbSrcCopy)
ctCi = ctCi + 1
nName = ctCi
dl = 5 - Len(nName)
If dl > 0 Then nName = String(dl, "0") & nName
SavePicture Picture1.Image, nPath & "\P-" & nName & ".bmp" '***** P- 表示文件前綴
End Sub

❺ vb 圖片分析

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer

picture1.AutoSize = True
picture1.ScaleMode = 3

picture1.Picture = LoadPicture("c:\90_90.bmp")

Open "c:\1.txt" For Output As #1
For x = 0 To 89
For y = 0 To 89
Print picture1.Point(x, y)
Print #1, picture1.Point(x, y)
Next y
Next x

Close #1
End Sub

是81個點的顏色
具體值就要看圖片文件了

❻ 怎樣用VB打開word文件，並插入一個圖片到該word文件

遲了一步，但不過還是貼點東西過來，要不然剛才花那麼多時間白研究了
先在工程引用microsoft word
Option Explicit
Dim WithEvents WordApp As Word.Application
Dim WithEvents WordDoc As Word.Document
Private Sub Command1_Click()
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.Documents.Add
WordApp.ActiveDocument.Shapes.AddPicture "C:\WINNT\CIBA1B.bmp"
如果要保存成你定下的名字就用WordApp.ActiveDocument.Saveas……

❼ VB怎麼選定 某單元格已有的圖片，然後進行復制

Ctrl鍵是Excel的各類快捷鍵中十分常見的一個按鍵，而復制粘貼功能也是經常要進行的一項操作。今天我發現了其實可以利用Ctrl鍵結合滑鼠左鍵來幫助進行復制操作，並且有3種不同的應用。

01

復制單元格

1.首先選中目標單元格。

2.按住Ctrl鍵不放。

3.滑鼠移動到單元格邊框，當形狀變成斜向左上角，並且帶一個+的時候，按下滑鼠左鍵，將其拖動到新單元格。這樣一來就把第一個第一個內容復制到第二個單元格了。

另外，原單元格如果有格式，或者是公式，也會一並復制過去。

以上就是Ctrl鍵結合滑鼠左鍵拖動來進行復制的3種應用了，快去試一試吧。

學習完畢，在評論區打卡哦！

❽ vb中picture的print 方法 關於如何分行的問題

在窗體和圖片框上顯示文本

為了在窗體或圖片框上顯示文本，應使用 Print 方法，將該窗體或圖片框的名稱加在它的前面即可。為了把輸出文本發送到列印機上，應使用 Printer 對象上的 Print 方法。

使用 Print 方法
Print 方法的語法是：

[object.]Print [outputlist] []

object 參數是可選項；如果被省略，則 Print 方法將應用於當前窗體。

例如，以下語句將把消息列印到：

名為 MyForm 的窗體：
MyForm.Print "This is a form."

名為 picMiniMsg 的圖片框：
picMiniMsg.Print "This is a picture box."

當前窗體：
Print "This is the current form."

Printer 對象：
Printer.Print "This text is going to the printer."

outputlist 參數是顯示在窗體或圖片框上的文本。如果 outputlist 參數有多個項，它們必須用逗號或分號，或逗號和分號同時使用來進行分隔，參見本章稍後「在單行上顯示不同的項」一節中的說明。

文本的截斷
如果窗體或圖片框太小，以至不能顯示所有的文本，則文本將被切斷。在什麼地方截斷文本，取決於文本列印開始點的位置坐標。被截斷的文本不能通過滾動窗體或圖片框來顯示。

在指定位置顯示 Print 輸出

用以下的一種或兩種方法，指定繪圖坐標，就可以控制 Print 輸出的位置：

使用 Cls（清屏）方法來清除窗體和或圖片框，同時把繪圖坐標恢復到原點（0，0）。

使用 CurrentX 和 CurrentY 屬性，設置繪圖坐標。
Cls 方法
對象中用 Print 和圖形方法創建出的所有文本和圖形，都可以用 Cls 方法來刪除。同時，Cls 方法還把繪圖坐標恢復到原點（0，0），按照預設規定，原點是左上角。例如，這些語句將清除：

名為 Picture1 的圖片框：
Picture1.Cls

當前窗體：
Cls

❾ vb是微博的意思嗎

vb是微博的意思。

抖音上說的vb是微博，是新浪微博的意思，微博支持查看原圖、GIF動畫、視頻、音頻，查看好友微博更新及分組微博篩選，可以快速的分享文字、圖片和地址位置信息，10種精美照片濾鏡供你選擇。

支持發送語音、表情、圖片及位置信息，分享也很精彩，快捷精準的簽到，向好友分享你的位置信息，還可以查看周邊的人、周邊的微博，了解發生在周邊的趣事。

新浪微博怎麼發圖片評論：

首先進入自己想要評論的微博，點擊評論後左下角會有圖片顯示的標志，上傳自己想要發送的圖片以及文字，點擊發送，即可看到自己的評論帶圖片的，不過目前還不支持安卓版本，得需要iOS系統，然後升級到最新版本，用手機APP才可以進行評論。

❿ vb 怎麼實現自動換背景圖片呢

AlphaBlend函數的定義同普通的復制函數Bitblt很相似，只是最後的參數blendFunct定義為一個

rBlendProps結構。那麼為什麼在函數定義中blendFunct 定義為Long類型呢？因為rBlendProps結構長度是4個位元組。

而Long類型變數的長度也是4個位元組，那麼我們就可以程序中通過API函數CopyMemory將一個rBlendProps結構拷貝到

blendFunct 中。

在Form1中添加兩個PictureBox控制項，其中Picture2為源，Picture1為拷貝目標，將兩者的ScaleMode都設置為3-Pixel

將兩者的AutoRedraw屬性都設置為True，然後分別添加圖像。在加入一個Timer控制項以及一個CommandButton控制項，然後

在Form1的代碼窗口中添加如下代碼：

DimlTimeAsByte
SubShowTransparency(cSrcAsPictureBox,cDestAsPictureBox,_
ByValnLevelAsByte)
DimLrPropsAsrBlendProps
DimLnBlendPtrAsLong
cDest.Cls
LrProps.tBlendAmount=nLevel
CopyMemoryLnBlendPtr,LrProps,4
WithcSrc
AlphaBlendcDest.hDC,0,0,.ScaleWidth,.ScaleHeight,_
.hDC,0,0,.ScaleWidth,.ScaleHeight,LnBlendPtr
EndWith
cDest.Refresh
EndSub
PrivateSubCommand1_Click()
lTime=0
Timer1.Interval=100
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
lTime=lTime+1
ShowTransparencyPicture2,Picture1,lTime
IflTime>=255Then
Timer1.Enabled=False
EndIf
Me.Caption=Str(Int(lTime/2.55))+"%"
EndSub