重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
该实例有很多实现方法,下面介绍一种不同的给你:
创新互联公司提供高防物理服务器租用、云服务器、香港服务器、四川雅安服务器托管等
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Interval = 500
ProgressBar1.Value = 0
ProgressBar1.Maximum = 100
ProgressBar1.Minimum = 0
End Sub
'上述过程是设置控件的初始值,也可以在属性面板设置
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value += 1
Label1.Text = "当前完成" ProgressBar1.Value "%"
If (ProgressBar1.Value = 100) Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
'timer1用来控制进度的增加
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ProgressBar1.Value -= 1
Label1.Text = "当前完成" ProgressBar1.Value "%"
If (ProgressBar1.Value = 0) Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
'time2用来控制进度的减少
End Class
1 生成txt文件。
DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框
SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名
IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存
My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本,直接覆盖其内容
EndIf
原文链接:
右上部分的:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim se$, i%, j%
Label1.Text = Space(35) "九九乘法表" vbCrLf
Label1.Text = Space(35) "_________" vbCrLf
For i = 1 To 9
For j = 1 To 9
If j = i Then
se = i "×" j "=" i * j
Label1.Text = se Space(8 - Len(se))
Else
se = ""
Label1.Text = se Space(9 - Len(se))
End If
Next j
Label1.Text = vbCrLf
Next i
End Sub
左下部分的:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim se$, i%, j%
Label1.Text = Space(35) "九九乘法表" vbCrLf
Label1.Text = Space(35) "_________" vbCrLf
For i = 1 To 9
For j = 1 To i
se = i "×" j "=" i * j
Label1.Text = se Space(8 - Len(se))
Next j
Label1.Text = vbCrLf
Next i
End Sub