网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net预览ug图,ug文件预览图

用vb.net如何编写图片浏览器的基本步骤功能是:图片的打开、显示、缩放、旋转。

窗体上放一个PictureBox,两个CommandButton,一个FileListBox

创新互联专注为客户提供全方位的互联网综合服务,包含不限于成都网站设计、网站制作、李沧网络推广、成都微信小程序、李沧网络营销、李沧企业策划、李沧品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;创新互联为所有大学生创业者提供李沧建站搭建服务,24小时服务热线:13518219792,官方网址:www.cdcxhl.com

Private Sub Command1_Click()

If File1.ListIndex = 0 Then

ShowPic File1.ListCount - 1

Else

ShowPic File1.ListIndex - 1

End If

End Sub

Private Sub Command2_Click()

If File1.ListIndex = File1.ListCount - 1 Then

ShowPic 0

Else

ShowPic File1.ListIndex + 1

End If

End Sub

Private Sub Form_Load()

File1.Visible = False

File1.Pattern = "*.jpg;*.gif" '可以浏览的文件类型,使用分号隔开

File1.Path = App.Path '改成你需要浏览的目录,比如"C:\Pic"

If File1.ListCount 1 Then '目录中图片在两张以上可以浏览

ShowPic 0

Exit Sub

ElseIf File1.ListCount = 1 Then '目录中只有一张图片时只显示这一张

ShowPic 0

End If

Command1.Enabled = False

Command2.Enabled = False

End Sub

Private Sub ShowPic(Index As Long)

File1.ListIndex = Index

Picture1.Picture = LoadPicture(File1.Path "\" File1.List(Index))

End Sub

如果对您有帮助,请记得采纳为满意答案,谢谢!祝您生活愉快!

vaela

怎样用vb.net做一个图片浏览器?

在自定义工具箱中选择dirlistbox,drivelistbox,filelistbox,添加这3个控件,然后在窗体上添加这些控件和一个picturebox控件,代码如下:

Public Class Form1

Private Sub DirListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DirListBox1.SelectedIndexChanged

FileListBox1.Path = DirListBox1.Path

End Sub

Private Sub DriveListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DriveListBox1.SelectedIndexChanged

DirListBox1.Path = DriveListBox1.Drive

End Sub

Private Sub FileListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileListBox1.SelectedIndexChanged

PictureBox1.Image = Image.FromFile(FileListBox1.Path + "\" + FileListBox1.SelectedItem.ToString())

End Sub

End Class

你可以自己在修改下,这只是个模型,呵呵!

UG文件没有预览图片,只有UG图标,怎么才能预览

系统里的预览功能想要支持ug,是需要通过注册dll文件到系统里才能实现的。而你的ug在安装的时候确实注册了dll文件到系统里。但注册的预览dll文件是32位,32位的预览dll是不支持64位系统的。所以不能在系统内直接预览。解决的方式是去找64位ug的dll预览支持文件,替换,并重新注册在系统里。或者安装64位ug。

在VB.NET中浏览图片

转换成位图肯定是可以浏览的,WMF文件没试过。

你可以将图片以二进制形式存储在数据库中,如果是SQL Server,对应字段的类型应该是image。

如何用外部代码如VB.net启动UG并修改零件参数

用Process.Start可以打开指定文件

Process.Start(My.Application.Info.DirectoryPath() "\***.***")

用Shell也可以打开指定文件

Shell("C:\123.exe", 1)

怎么获得ug文件的预览图片?

将你在UG中所作的PRT图和对应的JPG同时保存到数据库中,然后通过列表空间,将所有ptr文件列出来,然后你点击的时候,同时用Picture控件将jpg图形显示出来!


新闻名称:vb.net预览ug图,ug文件预览图
链接URL:http://bjjierui.cn/article/dssdccj.html

其他资讯