ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: テキストエディタで VB8( .NET Framework 2.0)
名前: lightbox
処理選択
パスワード

件名 テキストエディタで VB8( .NET Framework 2.0)
名前 lightbox
コメント
フォームは必要なので、VB Express Edition 等の動くマシンで
フォームのテキスト定義だけは作成しておきます。
http://www.microsoft.com/japan/msdn/vstudio/express/maninstall/(2005)
http://www.microsoft.com/japan/msdn/vstudio/express/default.aspx(2008)

http://lightbox.on.coocan.jp/image/dotnet_vb_form.png

@DIV
vbc /t:winexe /main:Form1 /out:input formTest.vb
@END
そして、以下のようなソースを作って↑ビルド。
( この環境で [[vbc.exe]] は、C:\WINNT\Microsoft.NET\Framework\v2.0.50727 )

@C:black(formTest.vb)
@DIV
Public Class Form1

Private Sub Button1_Click( _
	ByVal sender As System.Object, _
	ByVal e As System.EventArgs _
) Handles Button1.Click

	MsgBox(Me.TextBox1.Text)

End Sub

End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

    Private components As System.ComponentModel.IContainer

    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(62, 37)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(152, 19)
        Me.TextBox1.TabIndex = 0
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(104, 71)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 1
        Me.Button1.Text = "OK"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 12.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(292, 117)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.TextBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button

End Class
@END

※ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> 以降は Studio が作成したものをコピー
※ 実行環境には、少なくとも .NET Framework ランタイムがインストールされている必要があります
http://www.microsoft.com/downloads/details.aspx?familyid=FE6F2099-B7B4-4F47-A244-C96D69C35DEC&displaylang=ja