Är en nybörjare på VB, är så att jag försöker att utveckla ett program till en förening, och det är så då att jag undrar om man kan lägga in någon kod så att en radioknapp bara är tillgäglig under en viss tid? typ att man inte kan tycka på den efter tex 18:00! eller att den bara "fungerar" mellan 10:00-17:00 Snälla hjälp mig...

Jag gjorde såhär:
Skapa en Optionbutton (gissar att du redan har en) och en Timer. Sätt timern till t.ex. 10 sek för att inte dra onödiga systemresurser...
Sen kör jag med denna koden:

Private Sub Timer1_Timer()
tajm = Time
If Left(tajm, 2) < 18 Then
Option1.Enabled = False
Else
Option1.Enabled = True
End If
End Sub

Och om du vill att den ska kolla från start av programmet också:

Private Sub Form_Load()
tajm = Time
If Left(tajm, 2) < 18 Then
Option1.Enabled = False
Else
Option1.Enabled = True
End If
End Sub

Eftersom det inte finns någon garanti att de två vänster tecknen är timmar. Så skulle jag istället föreslå:
<code>
Private Sub Form_Load()
DoCheck
End Sub

Private Sub Timer1_Timer()
DoCheck
End Sub

Sub DoCheck()
Select Case Time
Case #10:00:00 AM# To #6:00:00 PM#
Option1.Enabled = True
Case Else
Option1.Enabled = False
End Select
End Sub
</code>

Tackar för hjälpen, men om jag har flera option knappar då?
Typ Option 1 skall vara tillgäglig mellan 13:00-17:00
option 2 skall vara tillgägling mellan 10:00-13:00.
Hur gör man då?

Lite besviken på att du inte löste det själv. För att lösa det skriver du så här:
<code>
Private Sub Form_Load()
DoCheck
End Sub

Private Sub Timer1_Timer()
DoCheck
End Sub

Sub DoCheck()
Select Case Time
Case #10:00:00 AM# To #1:00:00 PM#
Option1.Enabled = False
Option2.Enabled = True
Case #1:00:00 PM# To #5:00:00 PM#
Option1.Enabled = True
Option2.Enabled = False
Case Else
Option1.Enabled = False
Option2.Enabled = False
End Select
End Sub
</code>

Tack för hjälpen....testade men la en rad förmycket...

Okej hjälp mig nu...något är fel...
Option 1 skall vara akvit mellan 10:00-16:30
Option 2 skall vara aktiv mellan 10:00-13:00
Option 3 skall vara aktiv mellan 13:00-17:00
Option 4 skall vara aktiv mellan 17:00-21:00
Jag förökt att pula i hop det men det ända som hädner är att option 1 hela tiden är aktiv, Någon vänlíg skäl som kan hjälpa mig...tusen tack om någon gör det.

Private Sub Form_Load()
DoCheck
End Sub

Private Sub Timer1_Timer()
DoCheck

End Sub

Sub DoCheck()
Select Case Time
Case #10:00:00 AM# To #4:30:00 PM#
Option1.Enabled = True
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False

Case #10:00:00 AM# To #1:00:00 PM#
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = False
Option4.Enabled = False

Case #12:30:00 PM# To #4:30:00 PM#
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = True
Option4.Enabled = False

Case #5:00:00 PM# To #9:00:00 PM#
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = True

Case Else
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False

End Select
End Sub

Option 1 skall vara akvit mellan 10:00-16:30
Option 2 skall vara aktiv mellan 10:00-13:00
Option 3 skall vara aktiv mellan 13:00-17:00
Option 4 skall vara aktiv mellan 17:00-21:00



Sub DoCheck()
Select Case Time
Case #10:00:00 AM# To #1:00:00 PM#
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = False
Option4.Enabled = False

Case #1:00:00 PM# To #4:30:00 PM#
Option1.Enabled = True
Option2.Enabled = False
Option3.Enabled = True
Option4.Enabled = False

Case #4:30:00 PM# To #5:00:00 PM#
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = True
Option4.Enabled = False

Case #5:00:00 PM# To #9:00:00 PM#
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = True

Case Else
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option4.Enabled = False

End Select
End Sub

Kanon nu fungerar det fin fint...tackar så mycket för hjälpen...
supersnällt

Alternativt kan man skriva:
<code>
Private Sub Form_Load()
DoCheck
End Sub

Private Sub Timer1_Timer()
DoCheck
End Sub

Sub DoCheck()
Select Case Time
Case #10:00:00 AM# To #4:30:00 PM#
Option1.Enabled = True
Option4.Enabled = False
Case #5:00:00 PM# To #9:00:00 PM#
Option1.Enabled = False
Option4.Enabled = True
Case Else
Option1.Enabled = False
Option4.Enabled = False
End Select

Select Case Time
Case #10:00:00 AM# To #1:00:00 PM#
Option2.Enabled = True
Option3.Enabled = False
Case #12:30:00 PM# To #4:30:00 PM#
Option2.Enabled = False
Option3.Enabled = True
Case Else
Option2.Enabled = False
Option3.Enabled = False
End Select
End Sub
</code>