[Root_Kiskacsa]

Idézet: bbence - Dátum: 2005. márc. 28., hétfõ - 0:42

Bocs, elfeledkeztem errõl a topicról.
Nos, ha a VB-nek nem is kell fenn lennie a Te gépeden, de ha az illetõ speciális vezérlõket vagy egyéb objektumokat használt a programjában, tehát nem csak azt, ami "alapból" benne van a Visual Basic-ben, akkor könnyen lehet, hogy nálad nem fog menni.

Ez több, mint valószínû, mert Danikoka valami adatbázist emlegetett. Tehát ADO/DAO referencia igen nagy valószínûséggel fordul elõ benne. Ekkor pedig felmerül a kérdés, hogy az MDAC milyen verziójával dolgozott a programozó. (MDAC = adatbázis csatoló csomag, ebben van benne a DAO és az ADO objektumkészlet is.)

[[Black]]

Hi All!

Tippet szeretnék kérni

Hosszabb szöveget szeretnék egy formba betölteni, fájlból, mondjuk egy txt-bõl. Ezt hogyan valósítsam meg, hogyha nem akarom, hogy a felhasználó belenyúljon a szövegbe (magyarul: ne módosítsa)?

bbence, régebben még ajblack062 néven mûködtem... ha ez esetleg mond neked vmit 

Köszönöm!

Black

[Root_Kiskacsa]

Idézet: Black - Dátum: 2005. márc. 31., csütörtök - 19:31

Hosszabb szöveget szeretnék egy formba betölteni, fájlból, mondjuk egy txt-bõl. Ezt hogyan valósítsam meg, hogyha nem akarom, hogy a felhasználó belenyúljon a szövegbe (magyarul: ne módosítsa)?

1. Nyiss egy új formot!
2. Tegyél ki rá egy szép, nagy TextBoxot és hagyd meg a nevét Text1-nek!
3. Állítsd át az elõbbi TextBox MultiLine tulajdonságát True-ra!
4. Copy-Paste:

Private Sub Form_Load()
    Const FileName = "C:\Windows\DirectX.log"
    Dim f As Integer, szoveg() As Byte
    Text1.Locked = True
    f = FreeFile
    Open FileName For Input As f
    Text1.Text = Input(FileLen(FileName), #f)
    Close f
End Sub

5. És futtathatod is. 

[[Black]]

Idézet: Root_Kiskacsa - Dátum: 2005. ápr. 4., hétfõ - 20:24

1. Nyiss egy új formot!
2. Tegyél ki rá egy szép, nagy TextBoxot és hagyd meg a nevét Text1-nek!
3. Állítsd át az elõbbi TextBox MultiLine tulajdonságát True-ra!
4. Copy-Paste:

Private Sub Form_Load()
    Const FileName = "C:\Windows\DirectX.log"
    Dim f As Integer, szoveg() As Byte
    Text1.Locked = True
    f = FreeFile
    Open FileName For Input As f
    Text1.Text = Input(FileLen(FileName), #f)
    Close f
End Sub

5. És futtathatod is. 

köszi   

[format_c]

Vagy egy szép nagy RichTextBox a form-on és pl.:

Private Sub Form_Load()
RichTextBox1.LoadFile ("C:\teszt\teszt.txt")
End Sub

A RichTextBox tulajdonságainál itt is MultiLine True és a Locked is True

[[Black]]

Idézet: format_c - Dátum: 2005. ápr. 5., kedd - 3:36

Vagy egy szép nagy RichTextBox a form-on és pl.:

Private Sub Form_Load()
RichTextBox1.LoadFile ("C:\teszt\teszt.txt")
End Sub

A RichTextBox tulajdonságainál itt is MultiLine True és a Locked is True

köszi   

[[Black]]

Hello

Most gondolkodtam a napokban, hogy hogyan lehetne megoldani egy update-t VB-ben. Ez alatt annyit értenék, hogy mté mondjuk csinálok egy programot. Abban sok az ilyen szöveges fájl, amit be lehet olvasni, ergo amit eddig kérdezgettem. Csakhogy, a program azt honnan tudja meg, hogy egy vadonat új szöveges fájlt is be tudna olvasni? Mert én erre csak azt talátam ki, hogy csinálok egy összesítõ fájlt is, ami beolvastatja a fájlneveket, és a progi pedig tudná használni a frissen bekerülteket is.

Hogyha ez így nem érthetõ, akkor sorry, és majd megpróbálom érthetõen elmagyarázni

De a dologra visszatérve. Hogy lehetne ezt másképp elérni? Van valami egyszerûbb módja a dolognak?

Köszönöm

Black

[sonar]

Idézet: bbence - Dátum: 2005. márc. 27., vasárnap - 23:40

A Shell parancs a barátod.

Elmondod hogyan kell használni   vmi miatt nem igazán akar összjönni!
És egy olyan kérdésem lenne hogy azt hogyan csináljam meg, hogy elinduljon a visual basicban irt progi és kérdés nélkül bezárja magát mikor végzett.
Ezzel pöcsölök már egy ideje de nem igazán akar összejönni
Elõre is THX
szerk:
shell használata pl.:

Shell "c:\windows\notepad.exe"

banyeg mire rájöttem hogy " jel kell  

Szerkesztette: sonar 2005. 04. 14. 08:59 -kor

[sonar]

Megoldottam a bezárást is egy darab End paranccsal

Amugy nem tudjátok le lehet tölteni a help filet a VB6 hoz valahonnan?

[Root_Kiskacsa]

Idézet: sonar - Dátum: 2005. ápr. 19., kedd - 13:19

Amugy nem tudjátok le lehet tölteni a help filet a VB6 hoz valahonnan?

A VB 6 helpjét más néven MSDN library-nek hívják és az 1999-es januári változatot adják alapból mellé. (3 CD) Természetesen elõ lehet fizetni rá és akkor mindig küldik a frissített változatot is. Ingyenes megoldásként pedig az online változatot is lehet használni, ez a http://msdn.microsoft.com címen érhetõ el és logikusan mindig a legfrissebb változatot tallózhatod ezen. Csak hát az online nem rendelkezik olyan kényelmes keretprogrammal, mint a CD-s változat. (Ezen hangyányit segít, ha IE-vel nézed, akkor legalább a tartalomjegyzék dinamikus.)
Természetesen le is lehet warezolni az MSDN valamelyik kiadását ismert hálózatokból, de ebben nem segítek.

[Root_Kiskacsa]

Idézet: [Black] - Dátum: 2005. ápr. 5., kedd - 13:10

De a dologra visszatérve. Hogy lehetne ezt másképp elérni? Van valami egyszerûbb módja a dolognak?

Dir utasítás a barátod. Ha nem boldogulsz vele, írok egy példát is rá.

[Polgár úr]

Sziasztok!
A  Visual STudio 2003 Visual Basic.NET-jét használok, kb. egy hónapja... tehát kezdõ vagyok. Azt szeretném tõletek megtudni, hogy hogyan lehet egy DataGrid egy oszlopáról megmondani, hogy az õ sora tuljadonképpen "dropdown" menük (Tehát, hogy minden cellája gyakorlatilag egy ComboBox, amibõl aztán választani lehet ezen oszlop celláinak az értékét.)

Datagrid oszlopainak a színét lehet-e valahogy állítani?

Kérem szíves segítségeteket (ha lehett az email címemre)!

[FirstMan]

Hali!
Egy idegtépõ problémával fordulok hozzátok: hogyan tudok VB6 alatt egy DataGrid egy közvetlen cellájára hivatkozni (mint pl. Excelben A5:A5). Az oszlopot tudom az a .Column, de a sort az istenért se találom! (nincs .Row !!). Ez azért kéne mert nem közvetlenül az adatbázisból veszem ki az adatokat (nincs a datához kapcsolva), hanem 'kézzel' írja (írná) be a program futásidõ alatt. Itt egy forráskód, h én hogyan képzelném (de persze nem jó):

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then
        tetel_kod = Text1.Text
        For i = 0 To numrecs
            If tetel_kod = Form12.Data1.Recordset.Fields("Tételkód").Value Then
            'DataGrid1.Row = DataGrid1.Row + 1
            DataGrid1.Columns(1).Text = Form12.Data1.Recordset.Fields("Tételnév").Value
            End If
            Form12.Data1.Recordset.MoveNext
        Next i
    End If
End Sub

Elõre is köszönöm a válaszokat!!

[Merlot]

Idézet: FirstMan - Dátum: 2005. júl. 19., kedd - 16:41

Hali!
Egy idegtépõ problémával fordulok hozzátok: hogyan tudok VB6 alatt egy DataGrid egy közvetlen cellájára hivatkozni (mint pl. Excelben A5:A5). Az oszlopot tudom az a .Column, de a sort az istenért se találom! (nincs .Row !!). Ez azért kéne mert nem közvetlenül az adatbázisból veszem ki az adatokat (nincs a datához kapcsolva), hanem 'kézzel' írja (írná) be a program futásidõ alatt. Itt egy forráskód, h én hogyan képzelném (de persze nem jó):

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii = 13) Then
        tetel_kod = Text1.Text
        For i = 0 To numrecs
            If tetel_kod = Form12.Data1.Recordset.Fields("Tételkód").Value Then
            'DataGrid1.Row = DataGrid1.Row + 1
            DataGrid1.Columns(1).Text = Form12.Data1.Recordset.Fields("Tételnév").Value
            End If
            Form12.Data1.Recordset.MoveNext
        Next i
    End If
End Sub

Elõre is köszönöm a válaszokat!!

Szia!

Az ellen nem ved ... avagy a DataGrid-et nem erre talaltak ki  - egyszeruen hozzarendelsz egy recorset-et aztan jonapot kivanok (OLEDB), nem lehet olyasmit csinalni, mint amit szeretnel - legalabbis en nem tudok rola - kerultem ezt a komponenst mint ordog a tomjent.

Ajanlom figyelmedbe a FlexGrid controlt illetve annak TextMatrix property-et.

Egy tanacs: lehetoleg keruld a Form12.Data1.Recordset.Fields("Tételnév").Value es hasonlo ekezetes indexek hasznalatat!

szerk: ja es adatbazismezo-neveknek sem ajanlott ekezetes es egyebb "kevesbe konvencionalis" karakterek hasznalata.

Udv,
Merlot

Szerkesztette: Merlot 2005. 09. 16. 12:07 -kor

[sonar]

VB6 os adatbázis kezeléshez nincs valakinek doksija?

[FirstMan]

Idézet: Merlot - Dátum: 2005. szept. 16., péntek - 11:04

Szia!

Az ellen nem ved ... avagy a DataGrid-et nem erre talaltak ki  - egyszeruen hozzarendelsz egy recorset-et aztan jonapot kivanok (OLEDB), nem lehet olyasmit csinalni, mint amit szeretnel - legalabbis en nem tudok rola - kerultem ezt a komponenst mint ordog a tomjent.

Ajanlom figyelmedbe a FlexGrid controlt illetve annak TextMatrix property-et.

Egy tanacs: lehetoleg keruld a Form12.Data1.Recordset.Fields("Tételnév").Value es hasonlo ekezetes indexek hasznalatat!

szerk: ja es adatbazismezo-neveknek sem ajanlott ekezetes es egyebb "kevesbe konvencionalis" karakterek hasznalata.

Udv,
Merlot

Köszi a segítséget!
Egy másik kérdésem: access adatb.-ben hogyan lehet képet letárolni? Csak sejtem, h az egyik mezõ típusának Binary-t kell adni.... De nem tudom pontosan h hogyan...
Köszi elõre..

FirstMan

[Merlot]

Idézet: FirstMan - Dátum: 2005. okt. 20., csütörtök - 22:37

Köszi a segítséget!
Egy másik kérdésem: access adatb.-ben hogyan lehet képet letárolni? Csak sejtem, h az egyik mezõ típusának Binary-t kell adni.... De nem tudom pontosan h hogyan...
Köszi elõre..

FirstMan

MSDN: http://msdn.microsoft.com/library/default....html/gs0102.asp

Ha meg ott nincs, akkor Google a baratod
pl. http://www.google.co.hu/search?hs=frW&hl=h...es%C3%A9s&meta=
- az amara.com-os link tokeletes pelda.

Sok sikert!

Szerkesztette: Merlot 2005. 10. 21. 09:32 -kor

[r_misi]

Udv!

Megserult a negy cd-s Visual Studio Professional 6.0-am ket cd-je is.
AZ alabbi fajlokra lenne szugsegem, ahhoz, hog ymukodkepe scd-ket tudjak gyartani:

CD-1, label: VSP600ENU1:
\setup.exe (530.5 kB)

CD-3, -MSDN 3.3(?) CD1- label: DN60AENU1:
\SAMPLES\VC98\SDK\GRAPHICS\DIRECTANIMATION\SAMPLES\DA\CONTROLS\Testmask.htm
(4.2 kB)

Van valakinek oltete?

miska

[r_misi]

Idézet: r_misi - Dátum: 2005. okt. 25., kedd - 13:18

Udv!

Megserult a negy cd-s Visual Studio Professional 6.0-am ket cd-je is.
AZ alabbi fajlokra lenne szugsegem, ahhoz, hog ymukodkepe scd-ket tudjak gyartani:

CD-1, label: VSP600ENU1:
\setup.exe (530.5 kB)

CD-3, -MSDN 3.3(?) CD1- label: DN60AENU1:
\SAMPLES\VC98\SDK\GRAPHICS\DIRECTANIMATION\SAMPLES\DA\CONTROLS\Testmask.htm
(4.2 kB)

Van valakinek oltete?

miska

Udv!

kozben megoldodott dolog, megkuldtek a serult fajlok ep megfeleoit.

rmiska

[sonar]

szerk
semmi csak looserkedek

Szerkesztette: sonar 2005. 11. 24. 13:46 -kor