Back to Top

ぷろぐらむノート

Monthly Archives: 4月 2016

VB.NETコントロールを実行時に作成する

コントロールを実行時に作成する方法を説明します。

'配列を定義する
Private MyTextBoxs As TextBox()

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

'５個の配列を確保する
Me.MyTextBoxs = New TextBox(4) {}

For no As Integer = 0 To 4
    Me.MyTextBoxs(no) = New TextBox()

    'プロパティなどを必要に応じて設定します
    Me.MyTextBoxs(no).Name = "MyTextBox" & no.ToString()
    Me.MyTextBoxs(no).Text = "MyTextBox" & no.ToString()
    Me.MyTextBoxs(no).Top = no * 25

    'コントロールをフォームに追加する
    Me.Controls.Add(Me.MyTextBoxs(no))

    'イベントも統合する場合は、イベントハンドラを追加する
    AddHandler MyTextBoxs(no).KeyPress, AddressOf MyTextBoxs_KeyPress
Next

Private Sub MyTextBoxs_KeyPress(sender As Object, e As KeyPressEventArgs)
    Dim ctrl As TextBox = DirectCast(sender, TextBox)
End Sub

 

Webサイトを作成する

ＩＩＳにサイトを作成する場合の手順を説明します。

インターネットインフォメーションサービス（IIS）マネージャー設定

１．インターネットインフォメーションサービス（IIS）マネージャーを起動させます。

２．「サイト」の部分を右クリックし出てきたウィンドウ内の「Webサイトの追加…」をクリックします。

３．「Webサイトの追加」で、サイト名（S）、物理パス（P）、ホスト名　の３か所を入力します。

例

サイト名　　sample

物理パス 　C:\inetpub\wwwroot\sample

ホスト名　　sample

などです。

上の例では、http://sample としても「sampleのサーバー DNS address が見つかりませんでした」とエラーが出ます。

 

hostsファイルを修正

※C:/Windows/System32/drivers/etcの中にありますが、隠しフォルダですので見えませんし、管理者権限でないと修正できません。

修正は最終行に以下を追加します

127.0.0.1. sample

起動テスト用ＨＴＭＬ

以下をindex.htmlとして、C:/inetpub/wwwroot/sampleのしたに作成する（管理者権限で行う）

<!DOCTYPE html>
<html lang="ja">
<head>
<meta charset="UTF-8" />
<title>sample</title>
</head>
<body>
    <p>Hello World</p>
</body>
</html>

あとは、http://sample でアクセスできます。