新型コロナ情報
最近はよくテレビでコロナ情報を見ています。
感染者がどんどん増えてますね。
疫病については「ヨハネの黙示録」にて「青ざめた馬」で予告されています。
この馬は人類の3分の1に対して死に渡す権利を持っています。
ただこの予言をよく見てみると、「地の野獣」によって・・・と書かれています。
政府は経済活動を優先させるため人の流動の規制を解き、GoToキャンペーンも行おうとしています。
「地の野獣」である政治権力が知ってか知らずかヨハネの予言を成就させているようです。
いつまでこのコロナ過が続くんでしょうか？
Customコンボボック
Public Class CustomDropDownComboBox
Inherits System.Windows.Forms.ComboBox
Public SelectedValueString As String
Public Event Pop(ByVal sender As Object, ByVal e As EventArgs, ByVal value As String)
Private _ctrlStatus As Integer = 0
Private _dtCmbbox As DataTable = Nothing
Public Sub New()
_dtCmbbox = New DataTable
'_dtCmbbox.Columns.Add("ID_NO", GetType(String))
'_dtCmbbox.Columns.Add("NAME_STR", GetType(String))
End Sub
Public Function GetDataTable() As DataTable
GetDataTable = _dtCmbbox
End Function
Public Property DataTableCombo() As DataTable
Get
DataTableCombo = _dtCmbbox
End Get
Set(ByVal value As DataTable)
_dtCmbbox = value
End Set
End Property
Public Sub SetComboBox()
'コンボボックスのDataSourceにDataTableを割り当てる
Me.DataSource = _dtCmbbox
'表示される値はDataTableのNAME列
Me.DisplayMember = "NAME_STR"
'対応する値はDataTableのID列
Me.ValueMember = "ID_NO"
_ctrlStatus = 1
If Me.SelectedIndex <> -1 Then
RaiseEvent Pop(Me, New EventArgs, Me.SelectedValue.ToString())
End If
End Sub
Private Sub ComboBox_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SelectedValueChanged
'選択されていればSelectedValueに入っている
If sender.SelectedIndex <> -1 And _ctrlStatus = 1 Then
'ラベルに表示
SelectedValueString = sender.SelectedValue.ToString()
RaiseEvent Pop(Me, New EventArgs, SelectedValueString)
End If
End Sub
End Class
'
'
'
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'***********************************************************************************
' コントロールイベント一時解除
'***********************************************************************************
RemoveHandler Ccmb1.Pop, AddressOf Ccmb1_Pop
'***********************************************************************************
' 入力コントロール定義
'***********************************************************************************
Dim dt As New DataTable
'dt.Columns.Add("ID_NO", Type.GetType("System.Int32"))
dt.Columns.Add("ID_NO", Type.GetType("System.String"))
dt.Columns.Add("NAME_STR", Type.GetType("System.String"))
' データ製作
' 1
Dim workRow As DataRow = dt.NewRow
workRow("ID_NO") = "1"
workRow("NAME_STR") = "男"
dt.Rows.Add(workRow)
' 2
workRow = dt.NewRow
workRow("ID_NO") = "2"
workRow("NAME_STR") = "女"
dt.Rows.Add(workRow)
' データ製作終わり
Ccmb1.DataTableCombo = dt
Ccmb1.SetComboBox()
'***********************************************************************************
' コントロールイベント開始
'***********************************************************************************
AddHandler Ccmb1.Pop, AddressOf Ccmb1_Pop
' 初期値
TextBox1.Text = Ccmb1.SelectedValue.ToString
End Sub
' イベント
Private Sub Ccmb1_Pop(sender As Object, e As EventArgs, value As String) Handles Ccmb1.Pop
TextBox1.Text = value '
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'TextBox1.Text = Ccmb1.SelectedValue.ToString
Ccmb1.SelectedValue = "1"
End Sub
'---------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------
' フォームにべた書きバージョン
'---------------------------------------------------------------------------------------------------------------------
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'***********************************************************************************
' コントロールイベント一時解除
'***********************************************************************************
RemoveHandler ComboBox1.SelectedValueChanged, AddressOf ComboBox1_SelectedValueChanged
'***********************************************************************************
' 入力コントロール定義
'***********************************************************************************
Dim dt As New DataTable
dt.Columns.Add("ID_NO", Type.GetType("System.String"))
dt.Columns.Add("NAME_STR", Type.GetType("System.String"))
' データ製作
' 1
Dim workRow As DataRow = dt.NewRow
workRow("ID_NO") = "1"
workRow("NAME_STR") = "男"
dt.Rows.Add(workRow)
' 2
workRow = dt.NewRow
workRow("ID_NO") = "2"
workRow("NAME_STR") = "女"
dt.Rows.Add(workRow)
' データ製作終わり
'_dtCmbbox1 = dt
'コンボボックスのDataSourceにDataTableを割り当てる
ComboBox1.DataSource = dt
'表示される値はDataTableのNAME列
ComboBox1.DisplayMember = "NAME_STR"
'対応する値はDataTableのID列
ComboBox1.ValueMember = "ID_NO"
'***********************************************************************************
' コントロールイベント開始
'***********************************************************************************
AddHandler ComboBox1.SelectedValueChanged, AddressOf ComboBox1_SelectedValueChanged
'***********************************************************************************
' 初期値
'***********************************************************************************
TextBox1.Text = ComboBox1.SelectedValue.ToString
End Sub
Private Sub ComboBox1_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
'***********************************************************************************
' 入力コントロール定義
'***********************************************************************************
'選択されていればSelectedValueに入っている
If sender.SelectedIndex <> -1 Then
TextBox1.Text = sender.SelectedValue.ToString()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.SelectedValue = "1"
End Sub
すべらんぞうキャンペーン
冬場のスキー場へはノーマルタイヤ＋タイヤチェーンでよく行きましたが、とにかく、タイヤチェーンを履かすのに一苦労。で走り始めて、雪が積もっているところはいいですが、雪が少ないところはガチャガチャと車が振動して大変です。
その点、スタッドレスタイヤは非常に便利ですね、通常の道でもスムーズに走りますし、雪道でも結構グリップします。
今、ヨコハマタイヤ、アイスガードがキャンペーンを行っています。
左のブログパーツを見てください。キャンペーンのキャラクターすべらんぞう
です。
「あそぶ」をクリックして遊んであげてください。
キャンペーンのホームページ
でも面白く遊べますよ。
是非、チェックしてみてくださいね。
マッサージソファ用カバー
パナソニックから発売されているマッサージソファ用のカバーが抽選で当たるそうですよ。
そのカバーとは、人気女性雑誌～anan、クロワッサン、eclat～ とコラボレーションした
おしゃれなデザインのオリジナルカバーだそうです。
僕が気に入ったのは、クロワッサンの生地ですね。
クロワッサンの「ｃ」がアクセントになっていますが、全体的な色は落ち着いています。
詳しくはこちらからどうぞ。 マッサージソファ