vb.net例程集锦(18)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:44 来源：互联网

本文章共28074字，分19页，当前第18页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《vb.net例程集锦(18)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

Me.Button3.TabIndex = 3
Me.Button3.Text = \"更改窗体标题栏图标\"
\'
\'Button4
\'
Me.Button4.Location = New System.Drawing.Point(8, 232)
Me.Button4.Name = \"Button4\"
Me.Button4.Size = New System.Drawing.Size(128, 26)
Me.Button4.TabIndex = 4
Me.Button4.Text = \"装载图片的例子1\"
\'
\'Button5
\'
Me.Button5.Location = New System.Drawing.Point(8, 136)
Me.Button5.Name = \"Button5\"
Me.Button5.Size = New System.Drawing.Size(128, 23)
Me.Button5.TabIndex = 5
Me.Button5.Text = \"装载RTF文件\"
\'
\'Button6
\'
Me.Button6.Location = New System.Drawing.Point(8, 264)
Me.Button6.Name = \"Button6\"
Me.Button6.Size = New System.Drawing.Size(128, 26)
Me.Button6.TabIndex = 7
Me.Button6.Text = \"装载图片的例子2\"
\'
\'PictureBox1
\'
Me.PictureBox1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Default
Me.PictureBox1.Location = New System.Drawing.Point(144, 104)
Me.PictureBox1.Name = \"PictureBox1\"
Me.PictureBox1.Size = New System.Drawing.Size(360, 192)
Me.PictureBox1.TabIndex = 6
Me.PictureBox1.TabStop = False
\'
\'Form1
\'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(506, 303)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.RichTextBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.Name = \"Form1\"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = \"得到资源文件中的文件\"
Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
RichTextBox1.LoadFile(GetEmbeddedResource(\"GetEmbeddedResource.xsl.txt\"), _
RichTextBoxStreamType.PlainText)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
Me.Icon = New Icon(GetEmbeddedResource(\"GetEmbeddedResource.1.ico\"))
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button3.Click
Me.Icon = New Icon(GetEmbeddedResource(\"GetEmbeddedResource.2.ico\"))
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button4.Click
PictureBox1.Image = New Bitmap(GetEmbeddedResource(\"GetEmbeddedResource.rose.jpg\"))
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button5.Click
RichTextBox1.LoadFile(GetEmbeddedResource(\"GetEmbeddedResource.Text.rtf\"), _
RichTextBoxStreamType.RichText)
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

本文章更多内容：<<上一页 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 下一页>>

本页地址