13518219792
窗体上添加2个文本框，设置成多行，2个按钮，在文本框1里随便输入若干文字，可以多行，单击按钮1，保存到文件。然后单击按钮2，把刚才写入的文件读到文本框2里。
专注于为中小企业提供网站设计、做网站服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业五大连池免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了上千企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
代码如下：
'写文本文件
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建(写入)一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath "\Ssk.txt", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(TextBox1.Text)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()
End Sub
'读文本文件
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath "\Ssk.txt", System.Text.Encoding.UTF8)
TextBox2.Text = MyReader.ReadToEnd()
MyReader.Close()
End Sub
气斜射入水或其他介质，折射光线与入射光线法线在
在窗体上建立2个文本框text1和text2，一个按钮command1，text1里面输入你要转换的字符串，text2里面显示结果，代码如下：
Dim MyString As String
Dim EveryStr(50) As String
Dim TargetStr As String
Private Sub Command1_Click()
MyString = Text1
For i = 1 To Len(MyString)
EveryStr(i) = Right(Left(MyString, i), 1)
If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"
If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"
TargetStr = TargetStr EveryStr(i)
Next i
Text2 = TargetStr
TargetStr = \"\"
End Sub
引号前面怎么自动给加了个“\”？用的时候请手动把那几个“\”去掉
先建立一个图片框，一个时钟控件，Interval属性设为100，代码如下：
Private Sub Form_Click()
Picture1.ScaleMode = 3
Picture1.Scale (-3, 3)-(3, -3)
Picture1.Line (-0.3, -2)-(0.3, -3), , BF
End Sub
Private Sub Timer1_Timer()
Dim i As Single
Picture1.DrawWidth = 2
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), RGB(255, 0, 1)
Next
For i = 0.15 To 3 Step 0.001
Picture1.PSet (i, Log(i)), Form1.BackColor
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), RGB(255, 0, 1)
Next
For i = -0.15 To -3 Step -0.001
Picture1.PSet (i, Log(-i)), Form1.BackColor
Next
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), RGB(255, 0, 0)
Next i
For i = -2 To 3 Step 0.001
Picture1.PSet (0, i), Form1.BackColor
Next i
End Sub
一、带窗体的dll创建
1、先新建 类库（testdll），在项目中添加两个窗体form1(主窗体)、form2,为了与后面的调用区分分别命名为fm1,fm2；并在fm1窗体中添加一个按钮用来调用fm2如下图
2、在fm1窗体代码中先引用fm2, 按钮代码调用fm2.如图
3、生成dll,(class1.vb中不需要写任何代码）
二、调用dll
1、新建 一个windows应用程序并添加一个按钮用来调用dll中的窗体，选 择 “项目”－“添加引用”，选择刚才创建的testdll
2、窗体代码中先引用testdll,再定义一个testdll中的fm1对象，最后执行对象的show方法
3、运行结果如下：
简单啊~
打开VB新建一个exe工程；
按下F7打开代码窗体；
写入以下代码并生成exe发送给对方即可。
Private Sub Form_Load()
MsgBox "I love you~"
MsgBox "真的！"
MsgBox "..."
End Sub
MsgBox请自由更改以及添加，想说多少加多少。
