Back to Top

ぷろぐらむノート

Daily Archives: 2016年4月8日

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

 

CentOS7 Webminのインストール

システム管理ツールWebminのインストールを記載します。

Webminを使用するために、必要なもの

  • OpenSSL
  • Perl5 (標準でインストールされています)
  • Perlライブラリの Net::SSLeay(Perlでhttps通信をするためのモジュール)

インストール確認

$rpm -qa | grep openssl

$perl -v

$yum list | grep perl-Net-SSLeay

無いならインストール

yum -y install openssl

yum -y install perl

yum -y install perl-Net-SSLeay

 

Webminのインストール

前準備が終わったら実際のインストールです。

ダウンロード

Webmin の最新のものを確認してダウンロードしてください。

wget http://download.webmin.com/download/yum/webmin-1.810-1.noarch.rpm

インストール

rpm -Uvh webmin-1.810-1.noarch.rpm

miniserv.confの修正

vi /etc/webmin/miniserv.conf


allow=127.0.0.1 192.168.0.0/24         # 最終行：アクセス許可するIP追記


/etc/rc.d/init.d/webmin restart

起動確認

ブラウザよりhttps://localhost:10000 で起動します

ログイン画面がでたらrootのログイン・パスワードで入れます。

ログインユーザの変更は、Webminを起動して、メニューの[Webmin]－[Webminユーザ]にて変更します。