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