vb.net中,如何点击按钮调出选择文件窗口选中图片并在picturebox中显示出来?

button , OpenFileDialog , PictureBox , textbox 控件，我把图片显示在 picturebox 中，而路

专注于为中小企业提供成都网站建设、网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业华坪免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

径存放在 textbox 中，不知道这样行不行。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim filename As String

OpenFileDialog1.Filter = "jpg files (*.jpg)|*.jpg"

OpenFileDialog1.FilterIndex = 1

If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

filename = OpenFileDialog1.FileName

Else

End

End If

If Not (PictureBox1.Image Is Nothing) Then

PictureBox1.Image.Dispose()

PictureBox1.Image = Nothing

End If

'PictureBox1.Image = System.Drawing.Image.FromFile(filename)

去掉注释后就显示图片

TextBox1.Text = filename

End Sub

picturebox中只记录文件存放的路径，我找了一个 ImageLocation 函数

PictureBox1.ImageLocation = filename 不过还是会显示图片

对象的 ＿ 属性在程序运行过程中，只能被引用，不能被修改。

final在Java中并不常用，然而它却为我们提供了诸如在C语言中定义常量的功能，不仅如此，final还可以让你控制你的成员、方法或者是一个类是

否可被覆写或继承等功能，这些特点使final在Java中拥有了一个不可或缺的地位，也是学习Java时必须要知道和掌握的关键字之一。

final成员

当你在类中定义变量时，在其前面加上final关键字，那便是说，这个变量一旦被初始化便不可改变，这里不可改变的意思对基本类型来说是其值不可变，而对

于对象变量来说其引用不可再变。其初始化可以在两个地方，一是其定义处，也就是说在final变量定义时直接给其赋值，二是在构造函数中。这两个地方只能

选其一，要么在定义时给值，要么在构造函数中给值，不能同时既在定义时给了值，又在构造函数中给另外的值。下面这段代码演示了这一点：

import java.util.List;

import java.util.ArrayList;

import java.util.LinkedList;

public class Bat{

final PI=3.14; //在定义时便给址值

final int i; //因为要在构造函数中进行初始化，所以此处便不可再给值

final List list; //此变量也与上面的一样

Bat(){

i=100;

list=new LinkedList();

}

Bat(int ii,List l){

i=ii;

list=l;

}

public static void main(String[] args){

Bat b=new Bat();

b.list.add(new Bat());

//b.i=25;

//b.list=new ArrayList();

System.out.println("I="+b.i+" List Type:"+b.list.getClass());

b=new Bat(23,new ArrayList());

b.list.add(new Bat());

System.out.println("I="+b.i+" List Type:"+b.list.getClass());

}

}

此程序很简单的演示了final的常规用法。在这里使用在构造函数中进行初始化的方法，这使你有了一点灵活性。如Bat的两个重载构造函数所示，第一个缺

省构造函数会为你提供默认的值，重载的那个构造函数会根据你所提供的值或类型为final变量初始化。然而有时你并不需要这种灵活性，你只需要在定义时便

给定其值并永不变化，这时就不要再用这种方法。在main方法中有两行语句注释掉了，如果你去掉注释，程序便无法通过编译，这便是说，不论是i的值或是

list的类型，一旦初始化，确实无法再更改。然而b可以通过重新初始化来指定i的值或list的类型，输出结果中显示了这一点：

I=100 List Type:class java.util.LinkedList

I=23 List Type:class java.util.ArrayList

还有一种用法是定义方法中的参数为final，对于基本类型的变量，这样做并没有什么实际意义，因为基本类型的变量在调用方法时是传值的，也就是说你可以

在方法中更改这个参数变量而不会影响到调用语句，然而对于对象变量，却显得很实用，因为对象变量在传递时是传递其引用，这样你在方法中对对象变量的修改也

会影响到调用语句中的对象变量，当你在方法中不需要改变作为参数的对象变量时，明确使用final进行声明，会防止你无意的修改而影响到调用方法。

另外方法中的内部类在用到方法中的参变量时，此参变也必须声明为final才可使用，如下代码所示：

public class INClass{

void innerClass(final String str){

class IClass{

IClass(){

System.out.println(str);

}

}

IClass ic=new IClass();

}

public static void main(String[] args){

INClass inc=new INClass();

inc.innerClass("Hello");

}

}

final方法

将方法声明为final，那就说明你已经知道这个方法提供的功能已经满足你要求，不需要进行扩展，并且也不允许任何从此类继承的类来覆写这个方法，但是继

承仍然可以继承这个方法，也就是说可以直接使用。另外有一种被称为inline的机制，它会使你在调用final方法时，直接将方法主体插入到调用处，而

不是进行例行的方法调用，例如保存断点，压栈等，这样可能会使你的程序效率有所提高，然而当你的方法主体非常庞大时，或你在多处调用此方法，那么你的调用

主体代码便会迅速膨胀，可能反而会影响效率，所以你要慎用final进行方法定义。

final类

当你将final用于类身上时，你就需要仔细考虑，因为一个final类是无法被任何人继承的，那也就意味着此类在一个继承树中是一个叶子类，并且此类的

设计已被认为很完美而不需要进行修改或扩展。对于final类中的成员，你可以定义其为final，也可以不是final。而对于方法，由于所属类为

final的关系，自然也就成了final型的。你也可以明确的给final类中的方法加上一个final，但这显然没有意义。

下面的程序演示了final方法和final类的用法：

final class final{

final String str="final Data";

public String str1="non final data";

final public void print(){

System.out.println("final method.");

}

public void what(){

System.out.println(str+"\n"+str1);

}

}

public class FinalDemo { //extends final 无法继承

public static void main(String[] args){

final f=new final();

f.what();

f.print();

}

}

从程序中可以看出，final类与普通类的使用几乎没有差别，只是它失去了被继承的特性。final方法与非final方法的区别也很难从程序行看出，只

是记住慎用。

final在设计模式中的应用

在设计模式中有一种模式叫做不变模式，在Java中通过final关键字可以很容易的实现这个模式，在讲解final成员时用到的程序Bat.java就

是一个不变模式的例子。如果你对此感兴趣，可以参考阎宏博士编写的《Java与模式》一书中的讲解。

到此为止，this,static,supert和final的使用已经说完了，如果你对这四个关键字已经能够大致说出它们的区别与用法，那便说明你基本

已经掌握。然而，世界上的任何东西都不是完美无缺的，Java提供这四个关键字，给程序员的编程带来了很大的便利，但并不是说要让你到处使用，一旦达到滥

用的程序，便适得其反，所以在使用时请一定要认真考虑。

VB.NET 中全部mark后如何取消

菜单栏编辑书签清除书签

或者 ctrl+k按完后，再按ctrl+L

vb.net，我有一个鼠标右键点击的事件，我想在这个事件里面加入鼠标左键点击的动作，

你已经有了“鼠标右键点击的事件”

说明你肯定已经有了if e.button=windows.forms.mousebuttons.right then

你只需要找到这条语句，通常这句话应该在你的mouseclick事件中。

这条语句改成

if e.button=windows.forms.mousebuttons.left or e.button=windows.forms.mousebuttons.right then

就可以了！

^_^

vb.net 中有几种注释？？有多行注释吗？

首先选取你要注释的文本块，然后Ctrl-K Ctrl-C 这样对你选择的文本块完成注释．

而如果你要取消已完成注释的文本块，则Ctrl-K Ctrl-U即可。

VB.NET能够多行注释吗？求高手

Dim clh As ColumnHeader '声明列表头

Dim rs As New ADODB.Recordset '声明一个变量

lv.ColumnHeaders.Clear’Lv清空列表头

lv.ListItems.Clear '清空列表

lv.GridLines = True '显示格线

lv.FullRowSelect = True '整行选择模式

lv.View = lvwReport ’设置视图为列表视图

rs.Open "select * from 入库", Cnn '运行查询

For i = 0 To rs.Fields.Count - 1 ’for循环，所有记录表的字段

Set clh = lv.ColumnHeaders.Add(, , rs.Fields(i).Name) ’添加列表头与rs字段相同的名字

Next

lv.GridLines = True ’显示网格

lv.FullRowSelect = True ’整行模式选择

lv.View = lvwReport ’设置视图为列表视图

Set RsPage = rs ’复制rs

RsPage.PageSize = 40 ’每页显示40个记录

Label5.Caption = RsPage.PageCount ’显示页的数量

If rs.EOF = True Then ’判断是记录的结束

Label7.Caption = 0 ’显示0

Label5.Caption = 0 ’显示0

For i = 1 To 4

Label1(i).Enabled = False ’禁用标签1-4

Next

Else '判断不是记录的结束

Label7.Caption = 1 ’显示1

RsPage.MoveFirst '移到第一个记录

Call ShowPage(RsPage, 1) ’显示第一页

End If

End Sub

Private Sub ShowPage(rs As Recordset, nPage As Integer)

rs.AbsolutePage = nPage '显示参数nPage页

lv.ListItems.Clear '列表清空

Dim item As ListItem ’声明列表

For i = 1 To 40

If rs.EOF = True Then Exit Sub ’判断是记录的结束，退出函数

Set item = lv.ListItems.Add(, , Trim(rs.Fields(0).Value)) ’添加列表行，0字段的值

For j = 1 To rs.Fields.Count - 1

item.SubItems(j) = IIf(IsNull(rs.Fields(j)), "", Trim(rs.Fields(j))) ’填写行的其他字段

Next

rs.MoveNext '移到下一个记录

Next

End Sub

Private Sub Command2_Click()

If Text2.Text "" Then

FrmPJsy.Show 'text2得值不为空时，FrmPJsy显示

End If

End Sub

Private Sub lv_Click()

If lv.ListItems.Count = 1 Then ’如果行数不小于1

For i = 1 To lv.ListItems.Count

If lv.ListItems(i).Selected Then ’ 显示记录的每一段的内容

Text1(6).Text = Trim(lv.ListItems(i).Text)

Text1(0).Text = Trim(lv.ListItems(i).SubItems(1))

Text1(1).Text = Trim(lv.ListItems(i).SubItems(2))

Text1(2).Text = Trim(lv.ListItems(i).SubItems(3))

Text1(3).Text = Trim(lv.ListItems(i).SubItems(4))

Text1(4).Text = Trim(lv.ListItems(i).SubItems(5))

Text1(5).Text = Trim(lv.ListItems(i).SubItems(6))

DTPicker1.Value = Trim(lv.ListItems(i).SubItems(7))

Text1(7).Text = Trim(lv.ListItems(i).SubItems(8))

Command1(1).Enabled = True ’按钮可以使用

Command1(2).Enabled = True

End If

Next

End If

End Sub

分享标题：包含取消注释vb.net的词条
本文路径：http://scyanting.com/article/hpppjj.html