你好我想问你一个问题 VB.NET的和VB差不多

显示全部楼层 · 2011-8-11 08:39:48

是这样的我做了一个窗体上面放了一个picturebox控件显示图像想用下面的代码去实现登录时更换成用户的所选的图片

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Me.Text = "网络天下" + System.DateTime.Now.ToString

On Error Resume Next

'如果有错误则跳过去　运行下一段代码

'Dim instance As FileNotFoundException 文件没找到怎么处理

'TextBox2.Text = My.Computer.Screen.Bounds.Width.ToString & "*" & My.Computer.Screen.Bounds.Height.ToString

'My.Computer.Screen.Bounds.Width.ToString(获取显示屏幕的长度), 转换成了字符串了

'My.Computer.Screen.Bounds.Height.ToString(获取显示屏幕的高度)

'我直接用的书整形变量呵呵
'*************************************************************************

'还有一种方法是调用CMD 呵呵比较好玩还可以设置安装时的路径哦

If My.Computer.FileSystem.FileExists("d:\我的文档\") Then

Else

My.Computer.FileSystem.CreateDirectory("d:\我的文档\")

End If

'建立一个文件的路径

Dim sx As Integer

Dim sy As Integer

sx = My.Computer.Screen.Bounds.Width

sy = My.Computer.Screen.Bounds.Height

'————————————————————————————————————

'　这之前是获取屏幕分辨率的代码　方便得知合适的窗口初始位置

'然后定义一个新的点将坐标赋给窗体初始的位置

'————————————————————————————————————

Dim point1 As New Point(sx * 7 / 10, sy * 1 / 10)

Me.Location = point1

'————————————————————————————————————

'这是读取文件的代码读取最初的文件

' 还有一个问题是别人电脑上没辙个图片初始会不会出错呀

'————————————————————————————————————

Using sr As StreamReader = New StreamReader("d:\我的文档\me.txt")

str = sr.ReadLine()

str1 = sr.ReadLine()

sr.Close()
End Using

'这个USING 怎么使用还不太会呵呵
If str = "" Then

'
'判断字符串是否为空先前居然写成 if（str=null）

'
'和(a Is VBSTRINGNULL)真是可笑

Else

*
PictureBox1.Image = Image.FromFile(str)

End If

End Sub
但是代码到了*号那里就有问题了
那句话执行了但是却没有返回应有的结果返回值为nothing （注：我在开始编写的时候测试了是没有问题的可以随意读出用户自定义的图片文件
但是我休息了几天后再次打开它做其他工作时
就出问题了）
另外我下面还有如下代码

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
*PictureBox1.Image = Image.FromFile(str)

End Sub
执行起来完全没问题
我就纳闷了同样的一句话
执行完了结果咋就不不一样呀而且我放他两天他见鬼了还是咋的咋就和几天前不一样了呢
不是这个问题
因为上下加星号的地方时同样的但下面执行正常上面不行那个ME.TXT是用 streamreader 吧里面的内容读取出来了已近是个字符串了
恩下面那个我再试试看谢谢你们两个了
我想在问一下
dim什么东西是 as后面要用到new 呢时候时候还要加个=号呢
谢谢了虽然我在做但是一直没搞懂
能不能把你们的经验给我传授一下呀

千问 · 2011-8-11 08:39:48

你在两个 * 行前面分别 msgbox(str) 一次看看两个字符串有什么区别...

千问 · 2011-8-11 08:39:48

图片框居然会显示me.txt文件？Try
Dim Sr As String = "d:\我的文档\me.Jpg"
PictureBox1.Image = Image.FromFile(Sr)
Catch ex As Exception
MsgBox(ex....

你好 我想问你一个问题 VB.NET的 和VB差不多

你好我想问你一个问题 VB.NET的和VB差不多