vb屏幕放大镜程序源代码（vb窗体放大缩小代码）

本篇文章给大家谈谈vb屏幕放大镜程序源代码，以及vb窗体放大缩小代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB，求大神进：如何实现图片放大的效果
• 2、我用VB做了个放大镜，但测试时提示：实时错误'453': 找不到DLL入口点GetDc in user32,请问是怎么回事？
• 3、vb.net graphics 怎么做一个放大镜。主要是用来放大鼠标位置下的屏幕。我
• 4、用vb怎样做一个图片放大器？
• 5、求讲解此VB6.0源码~~~放大镜效果，窗体只有1个timer控件 主要是不知道它是如何实现放大操作的·~
• 6、怎样用vb做一个图片放大器？

VB，求大神进：如何实现图片放大的效果

Private Sub Command1_Click() '放大按钮

If Image1.Width  Me.Width And Image1.Height  Me.Height Then

Image1.Width = Image1.Width + 500

Image1.Height = Image1.Height + 500

End If

End Sub

Private Sub Command2_Click()   '缩小按钮

If Image1.Width  500 And Image1.Height  500 Then

Image1.Width = Image1.Width - 500

Image1.Height = Image1.Height - 500

End If

End Sub

Private Sub Form_Load()

Image1.Width = 1500

Image1.Height = 1500

Image1.Stretch = True   '图片按Image1的大小变化

End Sub

我用VB做了个放大镜，但测试时提示：实时错误'453': 找不到DLL入口点GetDc in user32,请问是怎么回事？

找不到入口点有以下几种情况：

1、没有注意大小写。

在Win32中，DLL的函数和VB的函数中必须大小写相同。

2、没有声明入口函数。

你需要在DLL的*.def文件中 加上入口函数，如：

EXPORTS

SetData @1

GetData @2

这样VB程序就可以访问SetData和GetData函数了。其中@1、@2是这两个函数的引用序号，通常在VB中不使用。(参考QA003500 "做一个DLL时，不用def文件不行吗"。)

3、采用C++编译方式。

在C++中编译函数时会将函数名进行转换，如将DLL中的kk(double k)转换为_kk@8。解决的办法有两种：

（1）如果没有使用C++的类，可以将.cpp文件改名为.c，就不进行这种转换了。

（2）在函数定义前加上extern "c" ，如：

extern "c" void _stdcall kk(double k)

vb.net graphics 怎么做一个放大镜。主要是用来放大鼠标位置下的屏幕。我

这个没做过 我帮你搜了一下

;ssid=0from=1011986juid=0pu=usm@0,sz@1320_2001,ta@iphone_1_10.0_3_602bd_page_type=1baiduid=68BE57552805358B0673A8F56596BE40tj=www_zhidao_normal_2_0_10_title

用vb怎样做一个图片放大器？

放大镜的实现（其他自己写吧，不是什么难题）：

Pic1存放源图，Pic2 存放放大后的图片（即放大镜）。这里是放大两倍，Pic2大小固定，被放大的源图是Pic2一半大小，以鼠标当前位置为中心的一个矩形。

将 pic2 放到 pic1里（即在 pic1 里面画 pic2），设置pic2.Enable=false

添加以下事件：

Private Sub Pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Pic2.PaintPicture Pic1.Picture, 0, 0, Pic2.Width, Pic2.Height, X - Pic2.Width / 4, Y - Pic2.Height / 4, Pic2.Width / 2, Pic2.Height / 2

Pic2.Move X - Pic2.Width / 2, Y - Pic2.Height / 2

End Sub

求讲解此VB6.0源码~~~放大镜效果，窗体只有1个timer控件 主要是不知道它是如何实现放大操作的·~

StretchBlt 这个API函数是绘图的，它的把100X100的放大到200X200的了。 就是把原来的图面积上放大了四倍

怎样用vb做一个图片放大器？

首先：做准备工作：在FORM1上新建一个PICTURE1（并装载一幅你喜爱的图像）和两个COMMAND命令按钮在PICTURE1下面（即COMMAND1和COMMAND2），其他属性不变，然后输入以下代码：

Private Sub Form_Load()//初始化设置

Picture1.AutoSize = True

Command1.Caption = ″显示网格″

Command2.Caption = ″取消网格″

Form1.Caption = ″显示网格图像演示程序″

End Sub

－－－－－－－－－－－－－－－－

Private Sub Form_Activate()//设置网格颜色

Picture1.ForeColor = vbWhite

Picture1.Move 0, 0

End Sub

－－－－－－－－－－－－－－－－

Private Sub Command1_Click()//显示网格

Dim HLINESNUM As Integer

Dim WLINESNUM As Integer

Dim XX As Integer

Dim I As Integer

Dim J As Integer

Dim YY As Integer

HLINESNUM = 15 //设置网格为15＊15显示

WLINESNUM = 15

Picture1.Refresh

Picture1.AutoRedraw = False

XX = Int(Picture1.ScaleWidth / WLINESNUM)

YY = Int(Picture1.ScaleHeight / HLINESNUM)

For I = 1 To HLINESNUM ＋ 1

Picture1.Line (XX ＊ I, 0)－(XX ＊ I, Picture1.Height － 1)

Picture1.Line (0, YY ＊ I)－(Picture1.Width － 1, YY ＊ I)

Next

End Sub

－－－－－－－－－－－－

Private Sub Command2_Click()//取消网格

Picture1.AutoRedraw = False

Picture1.Refresh

End Sub

－－－－－－－－－－－－

Private Sub Form_Unload(Cancel As Integer)

Unload Me //结束程序

End

End Sub

关于vb屏幕放大镜程序源代码和vb窗体放大缩小代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。