vb点虐 从指定图上 vb中如何打开指定路径的图片
怎么用VB.NET编程实现在桌面随机坐标显示指定的某些图片(随机显示某张图片),望高手帮忙
1.首先建立一个基于Microsoft .NET Framework 2.0以上的VB.NET解决方案。
10年积累的网站制作、成都网站设计经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先制作网站后付款的网站建设流程,更有绿春免费网站建设让你可以放心的选择与我们合作。
2.在窗体上面添加一个PictureBox控件,并绑定到父容器里面(绑定到父容器的操作伏态可以不去实现)。
3.给PictureBox.Image指定路径,这里以“C:\Windows\Web\Wallpaper\Windows\img0.jpg”为例子,当然这张图片在Windows 7旗舰版下面会有的。
4.添加代码:
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Randomize()
Dim xScn As UInteger = My.Computer.Screen.Bounds.Width
Dim yScn As UInteger = My.Computer.Screen.Bounds.Height
ReLine:
Dim xShow As Integer = Int((xScn + 1) * Rnd()) - Me.Width
Dim yShow As Integer = Int((yScn + 1) * Rnd()) - Me.Height
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
拍漏PictureBox1.Image = Image.FromFile("C:\Windows\Web\Wallpaper\Windows\img0.jpg")
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
If xShow = 0 And yShow = 0 Then
Me.Location = New Point(xShow, yShow)
Else
GoTo ReLine
End If
Me.Show()
End Sub
End Class
5.我是袭厅烂使用 Visual Studio 2012 Ultimate 开发的,若有错误请参考请他方法进行修改
VB点虐 加载图片某一位置
你要确定每个状态的大小是一樱蔽样的才可以:
Public Bitmap CutImage(ByVal start As Point, ByVal end As Point, ByVal b As Bitmap)
Dim f As New Bitmap(end.X - start.X + 1, end.Y - start.Y + 1)
For i As Integer = start.X To end.X + 1
For j As Integer = start.Y To end.Y + 1
Dim c As Color = b.GetPixel(i, j)
f.SetPixel(i - start.X, j - start.Y, c)
Next
Next
Return f
End Sub
这个函数就可以用于裁纳颂丛剪图像,返回裁剪后的图像,start是开始裁剪的位置,end是结束裁剪的位置,b是要裁剪的图像,假如你的这些洞樱按钮每个宽30,高20,你就可以用
PictureBox1.Image = CutImage(New Point(第n - 1个按钮 * 30, 0), New Point(第n个按钮 * 30, 20), 按钮存在的位图)
vb点虐 中通过Graphic怎么在原有的图片上绘制DrawLines
一般Graphics都是通过控件比如Panel,PictureBox来进行绘制的,
PictureBox pb= new PictureBox();
pb.Paint += new System.Windows.Forms.PaintEventHandler(this.Test_Paint);
void Test_Paint(object sender, PaintEventArgs e)
{
Graphics g = e.Graphics;
g.DrawImage(....);
g.DrawLine(...);
}
求大神指点vb点虐 怎么以指定方式打开图片呢?
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'建仔谈败立新的系统进程
Dim process As New System.Diagnostics.Process()
If RadioButton1.Checked Then
'设置文件名,此处为图片的真实路径+文件名
process.StartInfo.FileName = "c:\a.bmp"
'设置进程运行参数
process.StartInfo.Arguments = "rundll32.exe shimgvw.dll"
Else
process.StartInfo.FileName = "mspaint.exe"
process.StartInfo.Arguments = "c:\a.bmp"
End If
'此项为是否使用Shell执行程序,因系统默认为true,此项也可不设,但若设置必须为true
'process.StartInfo.UseShellExecute = True
侍举 '此处可以更改进念颤程所打开窗体的显示样式,可以不设
'process.StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden
process.Start()
process.Close()
End Sub
网页题目:vb点虐 从指定图上 vb中如何打开指定路径的图片
转载源于:http://myzitong.com/article/ddpjsjj.html