本文提供了两个使用 VB.NET 编写的示例程序：一个 Windows 应用程序展示如何在按钮点击事件中更改文本框的内容，并调用另一个类来显示消息框；另一个 Web 应用程序展示了如何设置页面属性及响应按钮点击事件来更新文本框中的文本。
- Windows Application1
Public Class Form1Class Form1
2
3
Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
4 TextBox1.Text = "Helllo World"
5 Dim s As New Comp
6 Dim op As New System.IO.FileStream("c:\\cc",IO.FileMode.Create)
7
End Sub
8
End Class
9
10Public Class CompClass Comp
11 Public Sub GetName()Sub GetName()
12 MsgBox("HelloWorld")
13 End Sub
14End Class
15 - Web Applicaiton1
2Partial Class _DefaultClass _Default
3 Inherits System.Web.UI.Page
4
5 Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
6 TextBox1.Text = "Hello VB.NET"
7 End Sub
8End Class
91<%
@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
2
3<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
4
5<html xmlns="http://www.w3.org/1999/xhtml" >
6<head runat="server">
7 <title>Untitled Page</title>
8</head>
9<body>
10 <form id="form1" runat="server">
11 <div>
12 <asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
13 <asp:Button ID="Button1" runat="server" Text="Button" /></div>
14 </form>
15</body>
16</html>
17
转载于:https://www.cnblogs.com/xuxiaoguang/archive/2007/08/21/864286.html
扫一扫
614
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
