Kako da napravim u VB6

[ basic10 @ 25.01.2006. 21:38 ] @

1. Kako napraviti hyperlink na nekon buttonu ?
2. Kako kada napravim 2 textboxa npr. jedan ime drugi prezime, da na buttonu spremi njih sprema u excel u tabelu a ime u b prezime ?
3. Kako postaviti sat ?
4. kako napraviti formu koja trazi pass prije ulaska ?

Znal iko hvala unaprijed

[ steewsc @ 25.01.2006. 23:45 ] @

1. Kako napraviti hyperlink na nekon buttonu ?
--------------------------------
Hyperlink ka cemu? Budi precizniji.
___________________________/

2. Preskacem.
___________________________/
3.Kako postaviti sat ?
3.1 Digitalni sat nije problem.
Potrebno ti je:

-Label1
Propreties:
Caption=""
-Timer1
Propreties:
Enabled=False
Interval=500

Code:

Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Time$
End Sub

3.2 Analogni (onaj sa kazaljkama)
To je vec malo komplikovanije i zato ti preporucujem da se drzis digitalnog.
___________________________/
4. kako napraviti formu koja trazi pass prije ulaska ?
Ovo je veoma prosto.

Code:

Dim Sifra As String

Private Sub Form_Load()
Sifra = InputBox("Unesite sifru kako bi ste dobili dozvolu za rad.", "Potrebna sifra")
If Sifra <> "izmedju navodnika se upisuje sifra koju zelis" Then
MsgBox "Sifra koju ste uneli je pogresna. Program se iskljucuje.", , "Pogresna sifra"
End
End If
End Sub

To je sve,
pozdrav.

[ Marko_L @ 27.01.2006. 12:42 ] @

2.)
Dodaj referencu na MS Excel Object Library

Code:
Command1_Click()
Dim xlapp As Excel.Application
Dim xlwrk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Set xlapp = New Excel.Application
Set xlwrk = xlapp.Workbooks.Open("C:\a.xls")
Set xlsht = xlwrk.Worksheets(1)
xlsht.Cells(red, 1) = Text1.Text
xlsht.Cells(red, 2) = Text2.Text
xlwrk.Save
xlwrk.Close
Set xlsht = Nothing
Set xlwrk = Nothing
Set xlapp = Nothing
End Sub

ili ako nemaš excel fajl, onda možeš da ga kreiraš iz vb sa neznatno izmenjenim kodom. Ovako

Code:
Command1_Click()
Dim xlapp As Excel.Application
Dim xlwrk As Excel.Workbook
Dim xlsht As Excel.Worksheet
Set xlapp = New Excel.Application
Set xlwrk = xlapp.Workbooks.Add
Set xlsht = xlwrk.Worksheets(1)
xlsht.Cells(red, 1) = Text1.Text
xlsht.Cells(red, 2) = Text2.Text
xlwrk.SaveAs "C:\proba.xls" 'ime fajla koji hoces da kreiras
xlwrk.Close
Set xlsht = Nothing
Set xlwrk = Nothing
Set xlapp = Nothing
End Sub

[ X-Cite @ 02.02.2006. 11:12 ] @

Meni javlja grešku u 4.liniji

Invalid use of New Keyword!

Greška se nalazi u ovoj liniji

Code:
Set xlapp = New Excel.Application

[ X-Cite @ 06.02.2006. 11:44 ] @

Kod mi radi odlično uz prepravku gore navedene linije

Code:
Set xlapp = Excel.Application

gdje sam obrisao New

Imao sam i problem, da mi vrijednosti veće od 1 piše kao milijone... to sam izbjegao na taj način, da sam u samoj liniji u VB-u pomnožio čitavu vrijednost sa 100000 i onda podjelio sa 100000... sve u istoj liniji.

Primjer:

Code:

Private Sub cmdExcel_Click()

    On Error GoTo ErrorHandler

    Dim xlapp As Excel.Application
    Dim xlwrk As Excel.Workbook
    Dim xlsht As Excel.Worksheet
    Set xlapp = Excel.Application

    Set xlwrk = xlapp.Workbooks.Open(App.Path & "\" & "MM_meritev.xls") ' otvara
'    postojeci fajl koji je uradjen sa grafovima i formulama za izracun slabljenja itd...

    Set xlsht = xlwrk.Worksheets(1)

    xlsht.Cells(1, 7) = FiberLength / 1000 ' upisuje duzinu optickog vlakna
'    upis u 1. red i 7. kolonu sto znaci G1

    For U = 0 To UBound(ShortVoltage)

        If Not LongVoltage(U) = Empty Then

            xlsht.Cells(U + 2, 3) = LongVoltage(U) * 100000 / 100000
'           U+2 je upisano zato, sto U ide od 0 a excel od 1 broj linija i posto meni
'           treba da pise u drugi red i trecu kolonu (column) od C2-C302
        End If

        If Not ShortVoltage(U) = Empty Then

            xlsht.Cells(U + 2, 4) = ShortVoltage(U) * 100000 / 100000

        End If

    Next U

    xlwrk.SaveAs App.Path & "\" & "MM_nova_meritev.xls" ' Save u novi fajl
'    xlwrk.Save ' Save u postojeci fajl
    xlwrk.Close

    Set xlsht = Nothing
    Set xlwrk = Nothing
    Set xlapp = Nothing

ErrorHandler:

    If Err.Number = 0 Then
    Else
        MsgBox "Error number: " & Err.Number & vbCrLf & _
               "Error description: " & Err.Description, vbCritical, "Error during export to excel..."
' ovdje ce izbaciti npr error 1004 ako fajl za otvaranje ne postoji
    End If

End Sub

To sam napisao za one koji žele da vide konkretan primjer

_{[Ovu poruku je menjao X-Cite dana 06.02.2006. u 12:45 GMT+1]}

_{[Ovu poruku je menjao X-Cite dana 06.02.2006. u 12:46 GMT+1]}

[ dava @ 31.01.2007. 11:07 ] @

Kod koraka 2, znaci upisivanja u .xls desi se greska jer je xls file read-only.
Kako da ga podesim da nije read-only (na nivou windows-a nije read-only, provjerio sam)

[ goranvuc @ 31.01.2007. 21:14 ] @

Moras mu reci da ne zelis da ga otvoris Read-Only, za to sluzi treci parametar u pozivu Open() metode:

Code:

Set xlwrk = xlapp.Workbooks.Open(App.Path & "\" & "MM_meritev.xls", , False)

[ dava @ 02.02.2007. 13:17 ] @

Probao sam to, ali ista greska se javlja - read-only :(

[ goranvuc @ 04.02.2007. 07:47 ] @

Izvini, ja vise nemam ideja, jedino ona banalna: Da li je fajl mozda negde na nekom serovanom folderu u mrezi, na kom nisu dozvoljena puna prava ostalim korisnicima (u takvim slucajevima fajlovi se otvaraju u readonly rezimu)?

[ dava @ 12.02.2007. 08:18 ] @

Nije to, fajl je na mom disku, ali nema veze, to sam cisto eksperimentalno probao da se zakacim na xls tako da nije bitno sto do kraja nisam uspio jer mislim da mi to nikad nece ni trebati.
Pozz