SHOEISHA iD

※旧SEメンバーシップ会員の方は、同じ登録情報(メールアドレス&パスワード)でログインいただけます

CodeZine編集部では、現場で活躍するデベロッパーをスターにするためのカンファレンス「Developers Summit」や、エンジニアの生きざまをブーストするためのイベント「Developers Boost」など、さまざまなカンファレンスを企画・運営しています。

ComponentZine(InputMan)

Excelのワークシートに交通費を入力するプログラムの作成

InputMan for .NET 4.0Jを使ったExcel入力フォームの作成

  • X ポスト
  • このエントリーをはてなブックマークに追加

今回作成したサンプルプログラム

Form1.vb
Imports GrapeCity.Win.Input

Public Class Form1
    Dim ex As Excel.Application

    Private Sub Form1_FormClosed(ByVal sender As Object, _
            ByVal e As System.Windows.Forms.FormClosedEventArgs) _
            Handles Me.FormClosed
        ex.ActiveWorkbook.Save()
        ex.Application.Quit()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Width = 280
        Me.Height = 330

        ex = CreateObject("Excel.Application")
        With ex
            .Visible = True  'バックグラウンドで処理するならFalseに設定する
            .Workbooks.Open("c:\外出交通費精算.xls")
        End With

        Me.Edit3.HistoryList = New String() _
            {"東京", "有楽町", "新橋", "品川", "新宿", "渋谷"}
        Me.Edit4.HistoryList = New String() _
            {"東京", "有楽町", "新橋", "品川", "新宿", "渋谷"}

        ' 日曜日の日付スタイルを設定します。
        Calendar1.Weekdays.Sunday.ReflectToTitle = ReflectTitle.Both
        Calendar1.Weekdays.Sunday.SubStyle.BackColor = Color.Pink
        Calendar1.Weekdays.Sunday.SubStyle.ForeColor = Color.Red
        Calendar1.Weekdays.Sunday.WeekFlags = WeekFlags.All
        ' 土曜日の日付スタイルを設定します。
        Calendar1.Weekdays.Saturday.ReflectToTitle = ReflectTitle.Both
        Calendar1.Weekdays.Saturday.SubStyle.BackColor = Color.PowderBlue
        Calendar1.Weekdays.Saturday.SubStyle.ForeColor = Color.Blue
        Calendar1.Weekdays.Saturday.WeekFlags = WeekFlags.All
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button2.Click
        If Me.Calculator1.Visible = True Then
            Me.Edit5.Text = Me.Calculator1.Value
            Me.Width = 280
            Me.Calculator1.Visible = False
        ElseIf Me.Calendar1.Visible = True Then
            Me.Edit2.Text = Me.Calendar1.SelectedDate
            Me.Width = 280
            Me.Calendar1.Visible = False
        End If
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button1.Click
        Me.Width = 500
        Me.Calculator1.Visible = True
        Me.Calendar1.Visible = False
        Me.Button2.Enabled = True
    End Sub

    Private Sub Button4_Click_1(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button4.Click
        Me.Width = 650
        Me.Calculator1.Visible = False
        Me.Calendar1.Visible = True
        Me.Button2.Enabled = False
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button3.Click
        With ex
            .Worksheets("Sheet1").rows("2:2").insert()

            .Cells(2, 1) = Edit1.Text
            .Cells(2, 2) = Edit2.Text
            .Cells(2, 3) = Edit3.Text
            .Cells(2, 4) = Edit4.Text
            .Cells(2, 5) = Edit5.Text
            .Cells(2, 6) = Combo1.Value
        End With

        Edit2.Text = ""
        Edit5.Text = ""
    End Sub

    Private Sub Button1_MouseHover1(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Button1.MouseHover
        Me.BalloonTip1.Show(Me.Button1)
    End Sub

    Private Sub Button1_MouseLeave1(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Me.BalloonTip1.Hide()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button5.Click
        Me.Width = 280
    End Sub

    Private Sub Calendar1_SelectedDateChanged(ByVal sender  _
            As Object, ByVal e As System.EventArgs) _
            HandlesCalendar1.SelectedDateChanged
        Me.Edit2.Text = Me.Calendar1.SelectedDate
    End Sub

    Private Sub Button4_MouseHover(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Button4.MouseHover
        Me.BalloonTip1.Show(Me.Button4)
    End Sub

    Private Sub Button4_MouseLeave(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles Button4.MouseLeave
        Me.BalloonTip1.Hide()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()
    End Sub
End Class

まとめ

 InputMan for .NET 4.0Jの一部のコントロールを使用して、Excelにデータを入力するフォームを作成してみました。Visual Studioの標準コントロールでもできますが、より使い勝手のよいアプリケーションに仕上げ、なおかつ他のアプリケーションと差をつけるなら、InputMan for .NET 4.0Jの各コンポーネントを使うのがオススメです。

 InputMan for .NET 4.0Jには、まだまだ便利なコントロールがありますので、次回は別のコントロールを使ったアプリケーション作成例を紹介します。

 

この記事は参考になりましたか?

  • X ポスト
  • このエントリーをはてなブックマークに追加
ComponentZine(InputMan)連載記事一覧

もっと読む

この記事の著者

瀬戸 遥(セト ハルカ)

8ビットコンピュータの時代からBASICを使い、C言語を独習で学びWindows 3.1のフリーソフトを作成、NiftyServeのフォーラムなどで配布。Excel VBAとVisual Basic関連の解説書を中心に現在まで40冊以上の書籍を出版。近著に、「ExcelユーザーのためのAccess再...

※プロフィールは、執筆時点、または直近の記事の寄稿時点での内容です

この記事は参考になりましたか?

この記事をシェア

  • X ポスト
  • このエントリーをはてなブックマークに追加
CodeZine(コードジン)
https://codezine.jp/article/detail/445 2009/03/17 11:49

おすすめ

アクセスランキング

アクセスランキング

イベント

CodeZine編集部では、現場で活躍するデベロッパーをスターにするためのカンファレンス「Developers Summit」や、エンジニアの生きざまをブーストするためのイベント「Developers Boost」など、さまざまなカンファレンスを企画・運営しています。

新規会員登録無料のご案内

  • ・全ての過去記事が閲覧できます
  • ・会員限定メルマガを受信できます

メールバックナンバー

アクセスランキング

アクセスランキング