提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • Paisley888

    101人对此回答表示赞同


    用VB.net制作一个小程序(1)
      ----制作“Hello.NET”程序
      作者:高山
      用下面很简单的方法,就可以制作一个“Hello.NET”小程序,同时可以掌握一些控件的用法。
      Public Class Form1
       Inherits System.Windows.Forms.Form
      #Region " Windows 窗体设计器生成的代码 "
       Public Sub New()
       MyBase.New()
       '该调用是 Windows 窗体设计器所必需的。
       InitializeComponent()
       '在 InitializeComponent() 调用之后添加任何初始化
       End Sub
       '窗体重写处置以清理组件列表。
       Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
       If disposing Then
       If Not (components Is Nothing) Then
       components.Dispose()
       End If
       End If
       MyBase.Dispose(disposing)
       End Sub
       'Windows 窗体设计器所必需的
       Private components As System.ComponentModel.IContainer
       '注意:以下过程是 Windows 窗体设计器所必需的
       '可以使用 Windows 窗体设计器修改此过程。
       '不要使用代码编辑器修改它。
       Friend WithEvents Button1 As System.Windows.Forms.Button
       Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
       <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
       Me.Button1 = New System.Windows.Forms.Button()
       Me.TextBox1 = New System.Windows.Forms.TextBox()
       Me.SuspendLayout()
       '
       'Button1
       '
       Me.Button1.Location = New System.Drawing.Point(16, 112)
       Me.Button1.Name = "Button1"
       Me.Button1.TabIndex = 0
       Me.Button1.Text = "OK"
       '
       'TextBox1
       '
       Me.TextBox1.Location = New System.Drawing.Point(160, 112)
       Me.TextBox1.Name = "TextBox1"
       Me.TextBox1.TabIndex = 1
       Me.TextBox1.Text = ""
       '
       'Form1
       '
       Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
       Me.ClientSize = New System.Drawing.Size(292, 266)
       Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1})
       Me.Name = "Form1"
       Me.Text = "Hello,VB.NET"
       Me.ResumeLayout(False)
       End Sub
      #End Region
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       TextBox1.Text = "Hello,VB.NET!"
       End Sub
      End Class
    展开
    101
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jameson

    101人对此回答表示赞同

    你好,这不是一两句就可以说清楚的,买本书慢慢学学吧
    展开
    101
    0回复
    发布于 7年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部