X problému, Y dotazů – Visual Basic – Fórum – Programujte.com

Ahoj, čekám na registraci a nějak se bohužel nevede. Mám tedy pár problémů a otázek přímo na Vás a byl bych opravdu rád, kdybych dostal alespoň jednoduchou odpověď, která mi snad pomůže. Předem děkuji za každou ochotu.

1) Mám IE7 i Operu a stále mi web píše, že nemám povolené COOKIES. Registraci za mne musel udělat kamarád. Poradí mi někdo? Zkoušel jsem dle různých návodů a postupů vyřešit tento problém, avšak bez úspěchu.


2) Dělám si takový prográmek, ve kterém mám Progress Bar.
a) můžu změnit u progress baru barvu těch dílků ze zelené na například oranžovou?

b) existuje nějaké řešení, pokud vemete vpotaz, že se jedná o aktualizaci programu, kde progress bar běží tak dlouho, jak sám stahuje? Mám namysli realnou dobu průběhu a né mnou nastavenou. Nemohu přeci odhadnout, jak rychlé má kdo připojení, že?

c) předpokládám, že mohu dát veškeré tlačítka, textboxy, comboboxy a další jako enable = false, když je progress bar v průběhu? Přesto však, existuje to nějak jednoduše?

3) Mám dohromady 3 formuláře. Při zmáčknutí tlačítka další se přesunu do formuláře číslo 2 a tak dále a tak dále. To není problém. Problém je v tom, že při přechodu z jednoho do druhého formuláře se okno posune. Problikne (zřejmě kvůli načtení nových položek) a lehce se posune. Využívám Form2.Show () a Me.Hide (). Předpokládám, že close vypne Form1 a když se poté vrátím z Form2, ve Form1 nebude to, co bylo vyplněno.

4) V mém projektu je X comboboxů. Jak vypnu možnost volby vlastního zadání hodnoty? Myslím to tak, že do comboboxu při spuštěném programu mohu kliknout a zadat vlastní sumu, která je větší, než výběř všech čísel. Dalším problémem je i to, že tam mohu psát i text. Takže to zamezení vlastního vyplnění a omezení na pouhý výběr z možností by to vyřešilo. Zkoušel jsem script, který jsem zde nalezl. Vztahuje se k textboxu a psaní pouze písmen, přesto se mi to nepovedlo zprovoznit.

5) V mém projektu je mnoho údajů. Křestní jmémo, Přijmení, Datum narození, Rodné číslo a další a další. Údaje, které v tuto chvíli nejsou až zas tak důležité. Problém je v tom, že potřebuju do dokumentu, který se vytvoří ve složce přihlášeného (to teď není předmětem) nacpat vyplněná data. Viděl jsem návody, kde se vytvořil txt pro password a txt pro username. Rád bych to v jednom souboru, šlo by to? Nejlépe však v souboru s vlastní příponou. Jak ale zaručím, že program, ve kterém tento soubor otevřu si v daném souboru najde přesně data taková, která má vypsat do určených polí a příponu takovou, kterou nikdo neotevře, nebo nerozluští její obsah a program ano. Zjednodušeně: Jak vypsat do jednoho souboru s neznámou příponou, kterou rozluští pouze můj program X labels, které pak dokáže program seskládat zpátky.

6) Poslední věc. Když chci, aby uživatel vyplnil otázku, rád bych, aby se v jiné položce (label), která je vedle jeho otázky zobrazilo. Před tento název chci však číslo 1 a při dosažení x znaků ... nakonci.
Příklad: Otázka -> "Zvládnu to? "a vedle se zobrazí "1. Zvládnu to? "
Otázka II -> "Myslíš, že ano? "a vedle se zobraží "2. Myslíš, že a... "

Díky moc!

6) Tak u bodu 6 jsem to zlehka vyřešil. Napadlo mne udělat pro každou otázku nový form, ale to by asi bylo hodně náročné, pač těch formů by mohlo být jen v otázkách otevřeno víc jak 20. Tak mne napadla další věc a to taková, že při vyplnění otázky1 se do souboru zapíšou data. Při kliknutí na otázku2 se vymaže obsah z otázky1 a při vyplnění se data uloží. Při kliknutí na otázku1 se načte ze souboru obsah a je vystaráno. Problém je v tom, že nevím, zda-li by šlo vůbec rozdělit do jednoho souboru X otázek.

----------
otázka1: Ahoj jak se máš?
----------
otázka2: Potřebuješ pomoc?

Takže jak si program najde, pozná, vyfiltruje to, že text Otázka1: Ahoj jak se máš? je otázkou pro otázku1 a jak rozponá, že má vypsat jen Ahoj jak se máš bez otázky1?

:))

7) Ještě jsem se včera zapomněl zeptat na jednu věc. U checkboxu máte danou grafickou podobu jak nezaškrtnutého políčka, tak i zaškrtnutého. Mohlo by se to nějak změnit? Například aby se zaškrtávalo jako křížek a né jako zobáček.

To Syslík : A používáš Visual Basic nebo Visual Basic.NET? A pokud budu předpokládat, že používáš Visual Studio, tak se pletu?

Já používám Visual basic 2008 Express Edition.

Jinak už jsem vyřešil z části ten 6tý bod.

If ComboBox1.SelectedItem = 2 Then
Form3.Label1.Enabled = True
Form3.Label2.Enabled = True
End If
If ComboBox1.SelectedItem = 3 Then
Form3.Label1.Enabled = True
Form3.Label2.Enabled = True
Form3.Label3.Enabled = True
ElseIf ComboBox1.SelectedItem < 3 Then
Form3.Label3.Enabled = False
End If
If ComboBox1.SelectedItem = 4 Then
Form3.Label1.Enabled = True
Form3.Label2.Enabled = True
Form3.Label3.Enabled = True
Form3.Label4.Enabled = True
ElseIf ComboBox1.SelectedItem < 4 Then
Form3.Label4.Enabled = False
End If

If IsNumeric(ComboBox1.Text) = False Then
ComboBox1.SelectedItem = "5"

ElseIf IsNumeric(ComboBox1.Text) > 30 Then
ComboBox1.SelectedItem = "30"

End If

Ha, takže k tomu comboboxu. Prostě mi to nešlo udělat a tak jsem to vyřešil checkem při dostání se na další stránku.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text < 3 Then 'Jestliže má ComboBox1 hodnotu textu menší jak 3, vyplň jeho hodnotu na 3.
ComboBox1.SelectedItem = "3"
ElseIf ComboBox1.Text > 7 Then 'Nebo pokud má ComboBox1 hodnotu text větší jak 7, vyplň jeho hodnotu na 7.
ComboBox1.SelectedItem = "7"
End If

Teď mám problém s label názvem.
Když do TextBoxu napíšu název, tak se až po kliknutí na samotný label název změní. Nevím jak, aby si REFRESHOVAL program každou změnu TextBoxu.

If TextBox1.Text.Length + 1 Then
Label9.Refresh()
End If

To Syslomancer :

K bodu 3)
Já bych to vyřešil tak, že každý formulář bych nastavil v okně Properties položku StartPosition na hodnostu CenterScreen (tedy ve Visual basicu2008). Program se ve Windows otevře vždy uprostřed obrazovky (tedy všechny formuláře).

k bodu 2c)

pro všechny prvky

Dim Ctrl As Control
For Each Ctrl In Me.Controls
Ctrl.Enabled = True
Next

pro Command Button

Dim Ctrl As Control
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is CommandButton Then
Ctrl.Enabled = False
End If
Next

a tak podobně

Mám podmínku, že: pokud počet písmen názvu otázky je menší než 20, vypiš 1. název otázky. Druhá podmínka je pokud počet písmen názvu otázky je větší jak 20, vypiš 1. + název otázky s maximálním počtem znaků 20.

dá se provést v v proceduře

Private Sub Text1_Change()
If Len(Text1.Text) <= 20 then
Label1.Caption = Text1.Text
else
Label1.Caption = "1. " & Mid(Text1.Text, 1, 20)
endif
End Sub