|
ｿｽｿｽVBｿｽｿｽｿｽSｿｽﾒ掲ｿｽｿｽｿｽｿｽ(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
|
DateTimePickerｿｽｿｽｿｽｿｽﾌ値
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽ^ｿｽｿｽｿｽq 2009/08/06(ｿｽｿｽ) 19:57:20
DateTimePickerｿｽ利用ｿｽｿｽｿｽﾄ年ｿｽｿｽｿｽｿｽｿｽﾝ抵ｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽ白ゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽﾗに、ｿｽｿｽｿｽﾌ擾ｿｽｿｽTextBoxｿｽｿｽ¥ｿｽｿｽｿｽﾄ、
DateTimePickerｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽｿｽNｿｽｿｽｿｽｿｽｿｽｿｽTextBoxｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
CloseUpｿｽCｿｽxｿｽｿｽｿｽgｿｽ利用ｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽ黷ｾｿｽﾆ、ｿｽJｿｽｿｽｿｽｿｽｿｽ_ｿｽ[ｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇ会ｿｽｿｽｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽDateTimePickerｿｽｿｽﾂゑｿｽｿｽﾄゑｿｽA
DateTimePickerｿｽﾅ選ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽTextBoxｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽﾜゑｿｽｿｽB
ｿｽﾓ図ｿｽｿｽｿｽﾄ難ｿｽｿｽtｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾅはなゑｿｽｿｽLｿｽｿｽｿｽｿｽｿｽZｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽｿｽTextｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜなゑｿｽｿｽ謔､ｿｽﾉゑｿｽｿｽｿｽﾌにはどゑｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽmｿｽbｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽVB2008WindowsXP
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/08/06(ｿｽｿｽ) 20:48:06
Checked=Falseｿｽﾈ擾ｿｽﾔゑｿｽAｿｽ欄表ｿｽLｿｽﾌ托ｿｽpｿｽﾉゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽﾌは駄目でゑｿｽｿｽ蛯､ｿｽｿｽ?
PartialPublicClassForm1
PrivateWithEventsTextBox1AsNewTextBox()With{.Location=NewPoint(10,10),.ReadOnly=True,.TabStop=False}
PrivateWithEventsDateTimePicker1AsNewDateTimePicker()With{.Location=NewPoint(10,30),.ShowCheckBox=True}
SubForm1_Load()HandlesMyBase.Load
Controls.AddRange(NewControl(){TextBox1,DateTimePicker1})
DateTimePicker1.Checked=False
DateTimePicker1.Tag=DateTimePicker1.Value
EndSub
'SubSample()HandlesDateTimePicker1.ValueChanged
'DimdAsDate?=If(DateTimePicker1.Checked,DateTimePicker1.Value,Nothing)
'IfNotDate?.Equals(d,DateTimePicker1.Tag)Then
'DateTimePicker1.Tag=d
'TextBox1.Text=If(DateTimePicker1.Checked,DateTimePicker1.Text,"")
'EndIf
'EndSub
EndClass
ｿｽ^ｿｽｿｽｿｽq 2009/08/07(ｿｽｿｽ) 21:03:00
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽかｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾟゑｿｽﾈゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾍ難ｿｽｿｽtｿｽｿｽIｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽAValueChangedｿｽCｿｽxｿｽｿｽｿｽgｿｽﾉ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽｿｽChecked=TrueｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽﾈので、ｿｽｿｽｿｽ閧ｪｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽAValueChangedｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ痰ｦｿｽﾎ、ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ白に設定しｿｽﾄ、DateTimePickerｿｽﾅ以前ｿｽﾉ選ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌイｿｽxｿｽｿｽｿｽgｿｽﾉは難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ_ｿｽﾅゑｿｽｿｽEｿｽEｿｽEｿｽB
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2009/08/07(ｿｽｿｽ) 23:29:30
ｿｽﾏみまゑｿｽｿｽｿｽAｿｽ]ｿｽvｿｽﾈコｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
TextBoxｿｽｿｽｿｽﾅ具ｿｽｿｽｿｽtｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾌではなゑｿｽｿｽAｿｽｿｽｿｽﾌまま標ｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽ
Checkedｿｽﾌみで具ｿｽｿｽｿｽtｿｽｿｽ¥ｿｽｿｽｿｽﾄはどゑｿｽｿｽｿｽｿｽAｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽxｿｽﾌ意図ｿｽﾅゑｿｽｿｽB
ｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽｿｽｿｽChecked=TrueｿｽﾉはなゑｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ変会ｿｽｿｽｿｽ
ｿｽｿｽｿｽ[ｿｽUｿｽ[ｿｽﾌ目にゑｿｽｿｽｿｽ轤ｩｿｽﾈので、ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽﾍ兎ｿｽｿｽpｿｽAｿｽｿｽｿｽｿｽｿｽﾍ厄ｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB
>ValueChangedｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは費ｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
>ｿｽeｿｽLｿｽXｿｽgｿｽｿｽ白に設定しｿｽｿｽ
ｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾅは、ｿｽﾓ図ｿｽIｿｽｿｽValueChangedｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽAｿｽEｿｽgｿｽｿｽｿｽA
ｿｽﾜゑｿｽｿｽAｿｽeｿｽLｿｽXｿｽgｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽﾒ集ｿｽsｿｽﾂにゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
(TextBoxｿｽﾅの具ｿｽｿｽｿｽtｿｽ¥ｿｽｿｽｿｽｿｽﾓ図ｿｽｿｽｿｽｿｽｿｽRｿｽ[ｿｽhｿｽﾅは厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)
ｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾅは望ｿｽｿｽﾅゑｿｽｿｽｿｽ答ではなゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽﾉ別案。
(ｿｽｿｽ1)ｿｽｿｽｿｽtｿｽ¥ｿｽｿｽｿｽpｿｽｿｽTextBoxｿｽｿｽｿｽｿｽｿｽｿｽtｿｽｿｽﾔでゑｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾉは、
ｿｽ@ｿｽ@(On)DropDownｿｽﾌ趣ｿｽｿｽ_ｿｽﾅ鯉ｿｽｿｽﾝゑｿｽValueｿｽ調べてゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽﾌ鯉ｿｽｿｽ
ｿｽ@ｿｽ@(On)CloseUpｿｽﾌ段ｿｽKｿｽﾅ、Valueｿｽｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽｿｽｿｽｿｽ調べゑｿｽB
ｿｽ@ｿｽ@Valueｿｽｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽﾎ、TextBoxｿｽｿｽｿｽｿｽｿｽtｿｽﾌままにゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽA
ｿｽ@ｿｽ@Valueｿｽｿｽｿｽﾏ会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾎ、ｿｽﾏ会ｿｽｿｽｿｽﾌ難ｿｽｿｽtｿｽｿｽTextBoxｿｽﾉ転ｿｽLｿｽｿｽｿｽｿｽB
(ｿｽｿｽ2)ｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽpｿｽﾌボｿｽ^ｿｽｿｽｿｽｿｽﾊ途ｿｽpｿｽﾓゑｿｽｿｽAMonthCalendarｿｽﾌ表ｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽﾘゑｿｽﾖゑｿｽｿｽｿｽ謔､ｿｽﾈ趣ｿｽｿｽｿｽｿｽﾉゑｿｽｿｽｿｽBｿｽｿｽｿｽtｿｽｿｽｿｽﾍ包ｿｽｿｽﾍ、ShowUpDownｿｽｿｽDateTimePickerｿｽｿｽｿｽA
ｿｽ@ｿｽﾜゑｿｽｿｽｿｽMaskedTextBoxｿｽｿｽTextBoxｿｽﾈどで托ｿｽpｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽhｿｽｿｽｿｽbｿｽvｿｽ_ｿｽEｿｽｿｽｿｽｿｽ
ｿｽ@ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ領茨ｿｽOｿｽﾉまで広ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽﾎ、MonthCalendarｿｽｿｽ
ｿｽ@ｿｽﾊの枠ｿｽｿｽｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾉ載ゑｿｽｿｽ驍ｱｿｽﾆで托ｿｽpｿｽｿｽｿｽｿｽB
ｿｽ^ｿｽｿｽｿｽq 2009/09/07(ｿｽｿｽ) 11:47:22
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽl
ｿｽﾔ信ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾖゑｿｽxｿｽｿｽｿｽﾈゑｿｽ¥ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄで、ｿｽｿｽｿｽAｿｽQｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽ謔､ｿｽﾈ趣ｿｽｿｽｿｽｿｽｿｽ
ｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽMaskedTextBoxｿｽｿｽgｿｽpｿｽｿｽｿｽﾄｿｽｿｽ[ｿｽUｿｽ[ｿｽﾌ包ｿｽｿｽﾉ抵ｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽA
ｿｽｿｽｿｽﾉ奇ｿｽｿｽﾅ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾌで、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽeｿｽXｿｽgｿｽﾉ難ｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽoｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽiｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ置ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽiｿｽｿｽｿｽj
ｿｽﾇまゑｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽAｿｽﾄ２ｿｽﾌ包ｿｽｿｽｿｽﾌ用ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽAｿｽﾄ１ｿｽﾍ趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌで、
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄ勉具ｿｽｿｽｿｽｿｽｿｽｿｽﾄ抵ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽpｿｽﾆ鯉ｿｽｿｽｿｽｿｽﾆ趣ｿｽｿｽ轤ｩｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽが、ｿｽLｿｽｿｽｿｽﾚゑｿｽｿｽｿｽｿｽｿｽﾄ色ｿｽXｿｽﾈ工ｿｽvｿｽｿｽ
ｿｽﾅゑｿｽｿｽｿｽ謔､ｿｽﾉなゑｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽ^ｿｽｿｽｿｽq 2009/09/07(ｿｽｿｽ) 11:48:18
ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽlｿｽﾌ案２ｿｽﾅ対会ｿｽｿｽﾌ会ｿｽｿｽｿｽﾉ趣ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
