本文目录一览:
'//首先你需要在Form1上面创建一个名称为Text1的TextBox
'//一个名为Command1的按钮和一个名为Command2的按钮
'//一个名为Picture1的PictureBox
'//然后再创建一个Form2,上面必须有一个名为Text1的TextBox
'//Form2上面也要有一个名为Command1的按钮和一个名为Command2的按钮
'//然后将下面的代码找对地方复制过去就行了
'//再添加一个Form3
'//关于Tab顺序的问题,你自己去调每个可操作控件的TabIndex
'//Form2的TextBox需要填上完整路径比如:C:\桌面\text_XXXX.txt
'//另外如果可以能不能留下你的邮箱······ 这样发真的很麻烦···
'////////////////////////////////////////////////////////////////////////////////////////////////////////////Form1
Dim teum As String
Option Explicit
Private Sub Check1_Click(index As Integer) '//检测点击的哪一个复选框
If p = True Then
p = False
Exit Sub
End If
If Check1(index).Value = 1 Then
teum = Text1.text '//记录未排序的结果
Else
Text1.text = teum '//将未排序的结果返还给文本框
model = 0
End If
Select Case index
Case 1
Call click(Check1(1))
model = 1
Case 2
Call click(Check1(2))
model = 2
End Select
End Sub
Private Sub Command1_Click() '//生成乘法表(这个地方推荐你改改··· 我不知道你打算把这个打印出来的乘法表放哪里···)
If checkNumLen(Form1.Text1.text) = False Then
Exit Sub
End If
Load Form3
End Sub
Private Sub Command2_Click() '//打开生成文件窗口,并将其设置为模式窗口
www.gsm-guard.net vbModal
End Sub
Private Sub Form_Load()
model = 0
End Sub
Private Sub Text1_Change()
Text1.BackColor = vbWhite
End Sub
'/////////////////////////////////////////////////////////////////////////////////////////////////////////////Form2
Option Explicit
Private Sub Command1_Click()
Dim file As String
Dim s As String
Dim txt As String
p = True
If Form1.Text1.text = "" Then
MsgBox "被写入的数据不能为空!", vbCritical, "提示:"
p = False
Exit Sub
ElseIf checkNumLen(Text1.text) = False Then
Form1.Text1.BackColor = HC0C0FF
MsgBox "被写入数据不符合条件!", vbCritical, "提示:"
p = False
Exit Sub
End If
If model = 0 Then
s = "【未排序的】"
ElseIf model = 1 Then
s = "【从小到大排序的】"
ElseIf model = 2 Then
s = "【从大到小排序的】"
End If
If Text1.text = "" Then
MsgBox "请输入文件路径!", vbCritical, "提示:"
p = False
ElseIf Dir(Text1.text) = "" Then
MsgBox Text1.text vbCrLf "文件不存在!", vbExclamation, "提示:"
p = False
Else
file = Text1.text
txt = Form1.Text1.text
If MsgBox("确定要写入当前数据?" vbCrLf "当前数据是" s, vbExclamation + vbOKCancel, "提示:") = vbOK Then
Open file For Output As #1 '//打开目标文件,访问方式:顺序访问
Write #1, Val(txt)
Close #1 '//关闭目标文件
MsgBox "写入完毕!", vbInformation, "提示:"
End If
End If
End Sub
Private Sub Command2_Click()
Dim file As String
Dim txt As String
Dim txtread As String
If Text1.text = "" Then
MsgBox "请输入文件路径!", vbCritical, "提示:"
Exit Sub
ElseIf Dir(Text1.text) = "" Then
MsgBox Text1.text vbCrLf "文件不存在!", vbExclamation, "提示:"
Exit Sub
Else
file = Text1.text
txt = Form1.Text1.text
Open file For Input As #1 '//打开目标文件,访问方式:顺序访问
Do
Line Input #1, txtread
txt = txt txtread
Loop Until EOF(1) = True
Close #1 '//关闭目标文件
End If
If txt = "" Then
MsgBox "文件为空!", vbExclamation, "提示:"
ElseIf IsNumeric(txt) = False Then
MsgBox "文件内包含非法字符", vbCritical, "提示:"
ElseIf Len(txt) 3 Then
MsgBox "文件内容不足三位数字", vbCritical, "提示:"
ElseIf IsNumeric(Mid(txt, 3, 1)) = False Then
MsgBox "文件内容第3位不是数字!", vbCritical, "提示:"
Else
MsgBox "文件符合要求!", vbInformation, "提示:"
End If
End Sub
'///////////////////////////////////////////////////////////////////////////////////////////////////////////////Form3
Option Explicit
Private Sub Form_Load()
Dim num As Integer
Dim i As Integer
Dim j As Integer
Dim space As String
Show
num = Val(Mid(Form1.Text1.text, 3, 1)) Mod 2
If num = 0 Then
For i = 1 To 9
For j = 1 To i
If j = 2 And i = 4 Or j = 2 And i = 3 Then
space = " "
Else
space = " "
End If
Print j "×" i "=" j * i space;
Next j
Next i
Else
For i = 9 To 1 Step -1
For j = 1 To i
If j = 2 And i = 4 Or j = 2 And i = 3 Then
space = " "
Else
space = " "
End If
Print j "×" i "=" j * i space;
Next j
Next i
End If
End Sub
'///////////////////////////////////////////////////////////////////////////////模块文件
Option Explicit
Public p As Boolean
Public model As Integer
Public Function sort(content As String, style As Integer) '//排序函数,content 必选参数,需要排序的内容;style 必选参数,用于规定排序方式
Dim a(9) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim t As Integer
For i = 0 To Len(content) - 1 '//给排序数组用赋值
a(i) = Val(Mid(content, i + 1, 1))
Next i
'//排序方法:选择排序
If style = 1 Then '//从小到大
For j = 0 To Len(content) - 2
For k = j + 1 To Len(content) - 1
If a(j) a(k) Then
t = a(j)
a(j) = a(k)
a(k) = t
End If
Next k
Next j
ElseIf style = 2 Then '//从大到小
For j = 0 To Len(content) - 2
For k = j + 1 To Len(content) - 1
If a(j) a(k) Then
t = a(j)
a(j) = a(k)
a(k) = t
End If
Next k
Next j
End If
For i = 0 To Len(content) - 1 '//排序将结果交给文本框
sort = sort a(i)
Next i
End Function
Public Function checkNumLen(content As String) '//条件检测函数,content 必选参数,需要排序的内容
Dim i As Integer
If Len(Form1.Text1.text) 8 Or Len(Form1.Text1.text) 10 Then
If p = False Then
Form1.Text1.BackColor = HC0C0FF
MsgBox "请输入8~10位的正整数", vbCritical, "提示:"
model = 0
Form1.Text1.SetFocus
p = True
For i = 1 To Form1.Check1.UBound
Form1.Check1(i).Value = 0
Next i
p = False
End If
Else
checkNumLen = True
End If
End Function
Public Function click(Obj As Object) '//点击检测函数
Dim i As Integer
If checkNumLen(Form1.Text1.text) = False Then
Exit Function
Else
If Obj.Value = 1 Then
For i = 1 To Form1.Check1.UBound
If i Obj.index Then
Form1.Check1(i).Value = 0
End If
Next i
Form1.Text1.text = sort(Form1.Text1.text, Obj.index) '//调用排序函数
End If
End If
Form1.Text1.SetFocus
Form1.Text1.SelStart = Len(Form1.Text1.text)
End Function
方法步骤
1
打开Microsoft Visual Studio 2012,新建一个窗体项目。
我们在编程序的时候一定要养成自己的一个好习惯就是做什么项目一定要将名字起好,否则但最后找的时候很麻烦。
2
选择菜单中的视图——工具箱。然后将工具箱固定在窗口的左侧,方便使用。
3
添加windows media player的COM组件。
在工具箱中的最后有一个常规的选项,右击——选择添加项选项。在弹出的窗口中选择COM组件,找到最后的windows media player组件,勾选前面的选择框后然后点击确定即可添加。
4
将windows media player组件拖动到新建的窗体中。
单机按住鼠标不放,直至拖动到窗体中是在松开鼠标,不需要管位置,只要在里面即可。
5
点击右下角的属性面板,然后将其中的DOCK属性展开选择中间的即可。
6
添加打开文件的菜单栏。
选择工具箱中的菜单和工具栏选项。找到里面的MenuStrip选项,将其拖动到窗口的顶部,也就是我们使用软件的菜单位置。
7
添加退出菜单。
继续点击后面添加退出菜单,不需要重新添加工具,直接单击即可。
8
添加对话框——OpenfileDialog工具。
展开对话框工具栏,选择上面所说的工具,将其拖动到窗体中,这时就会在下面出现一个组件,表示添加成功。
9
编写打开文件的代码。
代码很简单,只需输入两行。
选中打开菜单按钮,双击鼠标左键,打开代码编辑界面,输入:
openFileDialog1.ShowDialog();
axWindowsMediaPlayer1.URL = openFileDialog1.FileName;
10
编写退出的代码。
同上,双击退出按钮,打开代码编辑界面,输入: this.Close();
11
更改播放器的名称。
选中窗体,然后在属性面板中找到Text选项,输入播放器的名即可。
12
更改播放器的图标,如果你的电脑中有.ico格式的图片,直接点击后面浏览更换图标即可。
13
按F5键调试程序,测试一下效果,成功后找到你开始新建时的文件夹中的bin文件夹中就可以找到你的程序了。
END
方法/步骤
打开vs2012——文件——新建——项目
单击(如图)
在对话框左侧分别找到模板——其他语言——visual
c++——win32(如图)
选择“win32控制台应用程序”并设置好”名称“和”存储路径
“后单击确定
单击下一步
然后勾选”空项目“
接着单击菜单栏——视图——解决方案资源管理器
在弹出的浮动窗口中单击右键
”源文件“(如图)
然后选择——添加——新建项
单击(如图)
接着选择visual
c++
后选择”c++文件“并命名为holloworld.c
接着输入c语言代码
#include
int
main()
{
printf("hello
world!");
return
0;
}
接着单击”本地windows调试器“或者ctrl
+
F5
单击是
1、首先打开电脑。
2、在电脑桌面用鼠标右键单击新建一个。
3、打开新建的文本。
4、输入代码,不会编写代码的可以去网上查找,只需在百度输入vbs代码,就会有各种各样的代码,比如输入:msgbox("做我女朋友好吗?")msgbox("房产证写你名字...保大...我妈会游泳...")。
5、鼠标左键点击文本左上角文件,再点击另存为。
6、点击后会弹出以下窗口,文件名改成:表白示例.vbs,保存类型改为:所有文件,然后点击确定。
7、鼠标左键双击单开刚才保存vbs文件,就会像抖音里面的一样了。
打开VS,新建Winform,在窗体里画一个主要的窗体框架,计算好放大缩小尺寸比例和sizechange事件缩放比例,这个窗口将作为你的主窗口,在这个窗口里设置改皮肤事件。把设计UI public。
新建所有窗体继承他新建,作为窗体外窗口。
子窗体用userControl,也通上面一样,可以继承新建。但是UserControl可以直接给他设置皮肤,把他放在窗体panel里初始化就好了。
但在别人电脑里制作关不掉的表白窗口的教程,首先你要熟悉电脑,然后要知道一系列代码,这样设计时间就可以。