vb.net期末试卷的简单介绍

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.NET关于listview中显示所选文件夹内文件名以及图标的问题

首先你要在工程里面添加至少一个imagelist1控件，把里面放上合适的图标。然后在listview的largeimagelist（对应大图表显示模式）或者smalllimagelist（对应其他显示模式）属性里面指定imagelist1控件。

最后在你的代码添加上文件类型判断代码，根据不同的文件选择不同的图标，最后添加到集合当中去。

相关问答

Q1: 《vb.net程序设计》题目

1.目前.NET开发环境提供了那些程序设计语言的开发功能：visual C#和visual basic ，其实还有J#2.JIT是什么的缩写：Just-In-Time3.对象的什么属性在程序运行过程中，只能被引用，不能被修改：不记得了

4.要使某个控件在程序启动后，能看见，但不能用，应使该控件的enabled属性为：false

5.程序启动后，要使某个控件获得焦点，应使用该控件的 Focus 方法

6.checkbox控件的 Checked 属性决定了该控件的状态

7.要使textbox控件在程序启动后，只能显示只定内容，不能修改，应使readonly属性值为：true8.滚动条控件的 Value 属性值，反映了滚动条滑快的当前取值

9.改变窗体的标题，应修改窗体的 Text 属性

10.程序运行过程中，要向listbox控件中添加一项，应该使用 Items.Add 方法

Q2: 期末老师让做一个比较有创意的vb.net小软件，无从下手！求帮忙

随手做了个打地鼠，代码拿去吧。

下图是10x10超大窗体“打地鼠”

直接新建个窗体，覆盖全部代码，不需要拖控件，全部动态创建了。

参数都在前面几行，可以随便改。

格子宽和高是70，间距20，因此横格子和竖格子不要超过10，不然窗体会扩张到非常大的程度。

调整时钟的Interval可决定地鼠的出现频率，你可以修改变化概率 = 15这句话改变出现几率。

Public Class Form1

Dim 横格子 = 4

Dim 竖格子 = 4

Dim 背景色 = Color.Bisque

Dim 打中色 = Color.LawnGreen

Dim 失误色 = Color.Red

Dim 按钮(横格子, 竖格子) As Button

Public WithEvents 时钟 As New Timer With {.Interval = 400}

Public WithEvents 分数板 As New Label With {.AutoSize = False, .Width = 120,

.Height = 26}

Dim 字体 = New Font("黑体", 14)

Dim 随机数 As New Random

Dim 打中数 As Integer = 0

Dim 分数 As Integer = 0

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Me.Font = 字体

For x = 1 To 横格子

For y = 1 To 竖格子

按钮(x, y) = New Button()

Me.Controls.Add(按钮(x, y))

按钮(x, y).Width = 70

按钮(x, y).Height = 70

按钮(x, y).Text = ""

按钮(x, y).Location = New Point((x - 1) * (按钮(x, y).Width + 20) +

20, (y - 1) * (按钮(x, y).Height + 20) + 20)

按钮(x, y).Name = String.Format("Button_{0}_{1}", x, y)

按钮(x, y).BackColor = 背景色

按钮(x, y).FlatStyle = FlatStyle.Flat

按钮(x, y).Tag = 0

AddHandler 按钮(x, y).Click, AddressOf 按钮点击

Me.Text = "打地鼠" " [空格键暂停]"

Me.KeyPreview = True

Dim k = 按钮(横格子, 竖格子)

Me.Width = k.Left + k.Width + 40

Me.Height = k.Top + k.Height + 65

Me.Controls.Add(分数板)

分数板.Location = New Point(Me.Width / 2 - 25, 0)

分数板.Text = "分数牌"

时钟.Enabled = True

End Sub

Private Sub 按钮点击(sender As Object, e As EventArgs)

If 时钟.Enabled = False Then Exit Sub

Dim 控件名 = CType(sender, Button).Name.Split("_")

Dim x = CInt(控件名(1)) '截取_分割的第二部分Button_{0}_{1}

Dim y = CInt(控件名(2)) '截取_分割的第三部分Button_{0}_{1}

If 按钮(x, y) IsNot Nothing Then

If 按钮(x, y).Text = "地鼠" Then

打中数 = 打中数 + 1

分数 = 分数 + 20

按钮(x, y).Text = 打中数 "!"

分数板.Text = "得分：" 分数

按钮(x, y).BackColor = 打中色

按钮(x, y).Tag = 1

ElseIf 按钮(x, y).Text = "" Then

分数 = 分数 - 20

If 分数 0 Then 分数 = 0

分数板.Text = "得分：" 分数

按钮(x, y).Text = "乱打!"

按钮(x, y).BackColor = 失误色

按钮(x, y).Tag = 2

End If

End Sub

Private Sub 时钟_Tick(sender As Object, e As EventArgs) Handles 时钟.Tick

For x = 1 To 横格子

For y = 1 To 竖格子

Dim 变化概率 = 随机数.Next(1, 100)

If 变化概率 = 40 Then

If 按钮(x, y).Tag = 1 Or 按钮(x, y).Tag = 2 Then

按钮(x, y).Text = ""

按钮(x, y).BackColor = 背景色

按钮(x, y).Tag = 0

End If

If 变化概率 = 15 Then

If 按钮(x, y).Text = "地鼠" Then

按钮(x, y).Text = ""

ElseIf 按钮(x, y).Text = "" Then

按钮(x, y).Text = "地鼠"

End If

End Sub

Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles

MyBase.KeyUp

If e.KeyCode = Keys.Space Then 时钟.Enabled = Not 时钟.Enabled

End Sub

End Class

如满意，请采纳，谢谢。

Q3: vb.net的编程

Option Strict Off

Option Explicit On

Friend Class Form1

Inherits System.Windows.Forms.Form

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

Dim j As Integer

Dim A(9) As Short

Dim D(9) As Short

Dim i As Short

Dim B As Short

Dim C As Short

Dim F As Short

Dim G As Boolean

Dim H() As Short

Dim K As Short

Dim S As String

C = 32767

For i = 1 To 10

A(i - 1) = CShort(InputBox("输入第 " i "个数"))

If B A(i - 1) Then B = A(i - 1)

If C A(i - 1) Then C = A(i - 1)

D(i - 1) = Int(Rnd() * 100 + 0.5)

If F D(i - 1) Then F = D(i - 1)

Next i

For i = 2 To 100

For j = 2 To Int(System.Math.Sqrt(i) + 0.5)

'UPGRADE_WARNING: Couldn't resolve default property of object j. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"'

'UPGRADE_WARNING: Mod has a new behavior. Click for more: 'ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="9B7D5ADD-D8FE-4819-A36C-6DEDAF088CC7"'

If i Mod j 0 Then

G = True

Else

G = False

Exit For

End If

Next j

If G = True Then

ReDim Preserve H(K)

H(K) = i

K = K + 1

End If