check box

[i'm pissed]

Ладно раслаблятся. Вот опять вопрос.
Как сделать чтобы check box запоминал галочки.

[Amed]

"Запоминал"?

Поясните...

[Amed]

Запускаешь программу, а в ней галочки, как в прошлый раз? Это надо сохранять значения в реестр или в файлик с настройками.

[i'm pissed]

а не подскажешь как ?
желательно в файлик с настройками и чтобы он по завершения программы удалялся.

[Amed]

Нет, он не должен удаляться как раз... Примерно так:

Private Sub ReadBoxes(file as string)
dim tmp as byte
Open app.path & "\" & file for binary as #1
get #1, tmp
close #1

if tmp>0 then chkbox.checked=true
End Sub

Private Sub SaveBoxes(file as string)
Open app.path & "\" & file for binary as #1
if chkbox.checked=true then
put #1, 1
else
put #1, 0
end if
close #1
End Sub

[SHURUP]

В принципе для этого можно исползовать родные Васикаовские ф-ции по работе с реестром! ( По-моему, так проще )
SaveSetting
GetSetting

а не подскажешь как ?
желательно в файлик с настройками и чтобы он по завершению программы удалялся.

Что-то я хода мысли не понял…

[Amed]

Это ошибочные мысли, не обращай внимания

А с реестром плохо то, что каждая прога норовит туда что-нибудь пихнуть => винды потом начинают долго грузиться, или надо реестр чистить. А тут - ррррраз, и нет файлика

[i'm pissed]

THX

[i'm pissed]

А по подробнее про реестер можно

[Konst_One]

вот стандартные команды бейсика для записи/чтения из реестра

Код: Выделить всё

VBA.GetSetting
VBA.SaveSetting


разбирайся

[i'm pissed]

вообще ниче понять не могу
Amed хочу попросить тебя
твоим способом хочу

Код: Выделить всё

Private Sub ReadBoxes(file as string)
dim tmp as byte
Open app.path & "\" & file for binary as #1
get #1, tmp
close #1

if tmp>0 then chkbox.checked=true
End Sub

Private Sub SaveBoxes(file as string)
Open app.path & "\" & file for binary as #1
if chkbox.checked=true then
put #1, 1
else
put #1, 0
end if
close #1
End Sub

вот у меня на форме (toppanel) содержится два check box.
а также формы:
pannel
pannel1
pannel2
pannel3

[Amed]

Ну так всё просто.

Код: Выделить всё

Private Sub ReadBoxes(file as string)
On error resume next
dim tmp as byte
Open app.path & "\" & file for binary as #1
get #1, 1, tmp
if tmp>0 then checkbox1.checked=true
get #1, 2, tmp
if tmp>0 then checkbox2.checked=true
close #1

End Sub

Private Sub SaveBoxes(file as string)
On error resume next
Open app.path & "\" & file for binary as #1
if checkbox1.checked=true then
put #1, 1, 1
else
put #1, 1, 0
end if

if checkbox2.checked=true then
put #1, 2, 1
else
put #1, 2, 0
end if
close #1
End Sub


Так, вроде. В pannel_load помещаешь Readboxes("new.dat"), в pannel_unload - Saveboxes("new.dat").

[i'm pissed]

Чето опять не получается давай я уточну.
значит так.
мы имеем формы: toppanel
panel
panel1
panel2
panel3
----------------------
Toppanel самая главная в ней находится 2 cheсkbox (check).
также она имеет combobox (в которой находится пункт "кнопки" и "картинки" т.е в form_load я указал так

Код: Выделить всё

With Comb
        .Clear
         .AddItem "Кнопки"
         .AddItem "Рисунок"
        .ListIndex = 0
      End With


а в кнопки command1_click

Код: Выделить всё

      Select Case Comb.ListIndex
         Case 0   'Кнопки
           If Check1.Value Then panel1.Show , frmBrowser Else panel1.Hide
           If Check2.Value Then panel3.Show , frmBrowser Else panel3.Hide
         Case 1   'Рисунок
           If Check1.Value Then panel.Show , frmBrowser Else panel.Hide
           If Check2.Value Then panel2.Show , frmBrowser Else panel2.Hide
      End Select
Unload Me

тоесть при выборе например check1 должна выйти панель panel1.
ПОМОГИ PLZ

[Amed]

Ну да, всё верно. Вышеприведённый код вставляешь в Form_Load и Form_Unload toppanel (в которой CheckBox'ы), только ещё в процедуру ReadBoxes надо дописать строку

Код: Выделить всё

Comb_Click


Так?

[i'm pissed]

вот щас я добавил в Form_Load

Код: Выделить всё

ReadBoxes Comb_Click("new.dat")

у меня вышла ошибка

[Amed]

Нет, не так.

В Form_load:
ReadBoxes("new.dat")

А процедура ReadBoxes такая:

Код: Выделить всё

Private Sub ReadBoxes(file as string)
On error resume next
dim tmp as byte
Open app.path & "\" & file for binary as #1
get #1, 1, tmp
if tmp>0 then checkbox1.checked=true
get #1, 2, tmp
if tmp>0 then checkbox2.checked=true
close #1
Comb_Click
End Sub


[i'm pissed]

а вот теперь понятно ша попробую

[i'm pissed]

у меня checkbox это просто check т .е у меня есть check1 и check2.
и форма toppanel
вот я в нее ввожу вот полностью код из формы из toppanel

Код: Выделить всё

Private Declare Function SetWindowPos Lib "User32" ( _
                        ByVal hWnd As Long, _
                        ByVal hWndInsertAfter As Long, _
                        ByVal x As Long, _
                        ByVal Y As Long, _
                        ByVal cx As Long, _
                        ByVal cy As Long, _
                        ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1


Private Sub Form_Load()
ReadBoxes ("new.dat")

Call SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
                SWP_NOMOVE + SWP_NOSIZE)
With Comb
        .Clear
         .AddItem "Êíîïêè"
         .AddItem "Ðèñóíîê"
        .ListIndex = 0
      End With
End Sub



Private Sub Command1_Click()
           
      Select Case Comb.ListIndex
         Case 0   'êíîïêè
           If Check1.Value Then panel1.Show , frmBrowser Else panel1.Hide
           If Check2.Value Then panel3.Show , frmBrowser Else panel3.Hide
         Case 1   'ðèñóíîê
           If CheckBox1.Value Then panel.Show , frmBrowser Else panel.Hide
           If Check2.Value Then panel2.Show , frmBrowser Else panel2.Hide
      End Select
Unload Me
End Sub


Private Sub Form_Unload(Cancel As Integer)
SaveBoxes ("new.dat")


End Sub
Private Sub ReadBoxes(file As String)
On Error Resume Next
Dim tmp As Byte
Open App.Path & "\" & file For Binary As #1
Get #1, 1, tmp
If tmp > 0 Then Check1.Checked = True
Get #1, 2, tmp
If tmp > 0 Then Check2.Checked = True
Close #1
Comb_click
End Sub

Private Sub SaveBoxes(file As String)
On Error Resume Next
Open App.Path & "\" & file For Binary As #1
If Check1.Checked = True Then
Put #1, 1, 1
Else
Put #1, 1, 0
End If

If Check2.Checked = True Then
Put #1, 2, 1
Else
Put #1, 2, 0
End If
Close #1
End Sub


НЕ пашет plz помоги

[Алексей К.]

Select Case Comb.ListIndex
Case 0 'êíîïêè
If Check1.Value Then panel1.Show , frmBrowser Else panel1.Hide
If Check2.Value Then panel3.Show , frmBrowser Else panel3.Hide
Case 1 'ðèñóíîê
If CheckBox1.Value Then panel.Show , frmBrowser Else panel.Hide
If Check2.Value Then panel2.Show , frmBrowser Else panel2.Hide
End Select

[i'm pissed]

так то же пробовал не пашет

[i'm pissed]

выдает ошибку на

Код: Выделить всё

If Checkbox1.value Then

[Amed]

Какую ошибку? Телепаты в отпуске (с) кто-то там...

[i'm pissed]

run-time error 424
object required

[i'm pissed]

Вот пример.
помогите

[Алексей К.]

Select Case Comb.ListIndex
Case 0 'êíîïêè
If Check1.Value Then panel1.Show , frmBrowser Else panel1.Hide
If Check2.Value Then panel3.Show , frmBrowser Else panel3.Hide
Case 1 'ðèñóíîê
If CheckBox1.Value Then panel.Show , frmBrowser Else panel.Hide
If Check2.Value Then panel2.Show , frmBrowser Else panel2.Hide
End Select
Замени CheckBox1.Value на Check1.Value

[Sedge]

У тебя на форме toppanel нет контролов CheckBox1 и CheckBox2. Есть Check1 и Check2. См. св-во name соответствующих элементов управления.

[Алексей К.]

Вот держи...
Издание второе и дополненное

[i'm pissed]

Вот держи...
Издание второе и дополненное

Че-то не работает

[i'm pissed]

надо чтобы галочки в checkbox
сохранялись

[Алексей К.]

Когда на форме в режиме конфигуратора ты выбрал мышкой обьект, то на панели свойств обьекта в самом верху панели всегда показывается:
ИМЯ_ОБЬЕКТА ТИП_ОБЬЕКТА . Так вот, имя обьекта выделяется жирным шрифтом - и это имя в программном коде при работе с этим обьектом ты и должен указывать, т.е. (по твоему примеру) указывать check1.value а не chekbox1.value. (check1 -имя обьекта, chekbox - тип обьекта). Надо было во всех местах подправить это дело. А в первом, присланном варианте я тебе просто исправил ошибку при запуске. Вот держи вроде все работает как надо, галочки сохраняются.