2016. február 5., péntek

Gyorskeresés

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Visual Basic

Hozzászólások

(#2601) martonx válasza lomajpure (#2600) üzenetére


martonx
(PH! addikt)

Ez is megoldható, mondjuk ehhez se az excel-t tartom a legjobb eszköznek. Milyen segítséget szeretnél? Megírni senki nem fogja helyetted a programot.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2602) martonx válasza fPApi (#2596) üzenetére


martonx
(PH! addikt)

Csak ötletelek, nem fogok érdemben foglalkozni vele:
1. Egyrészt, ha egyedi nevet adtál az objektumaidnak, akkor az alapján vissza is tudod keresni.
2. Mondjuk egy for ciklussal végig tudod nézni az összes táblázatot.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2603) fPApi válasza martonx (#2602) üzenetére


fPApi
(őstag)

1. Sajnos nem adtam egyedi nevet (balga módon). Utólag ezt meg lehet tenni valahogy? Néztem a tulajdonságot, de nem találtam ilyet.
2. Ezt megnézem, hátha ...

[ Szerkesztve ]

(#2604) Fl3x


Fl3x
(fanatikus tag)

Sziasztok,

most kezdegetek vba-bna programozást "tanulni" és olyan kérdésem lenne h a print utasítás az hova íródik ki? Sehol nem találom és eléggé zavaró.

Segítséget előre is köszi!

Üdv.: Fl3x

" Nem az számít mekkorát ütsz, hanem hogy hány ütést állsz ki mikor talpon kell maradni!"

(#2605) Delila_1 válasza Fl3x (#2604) üzenetére


Delila_1
(PH! kedvence)

Excelben?

Range("A1:E40").PrintOut Copies:=1

Természetesen a saját területedet írd be.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#2606) Fl3x válasza Delila_1 (#2605) üzenetére


Fl3x
(fanatikus tag)

Igen, mert a melómhoz ide kell programot kreállnom és olvastam h van print utasítás és beírom, de sehol nem jelenik meg. Köszi az ötletet kipróbálom :)

" Nem az számít mekkorát ütsz, hanem hogy hány ütést állsz ki mikor talpon kell maradni!"

(#2607) Delila_1 válasza Fl3x (#2606) üzenetére


Delila_1
(PH! kedvence)

Szivi. :)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#2608) Don_


Don_
(kvázi-tag)

Sziasztok!

Van egy 12 Userformból álló kérdőív, aminek az egyik formja egy listboxot tartalmaz. A listbox forrásának viszont a hét minden napján mást kellene megadnom. Nem akarnék minden nap beleturkálni és manuálisan átírogatni a forrást, hetente egyszer beálligatnám, hogy a hét melyik napján melyik forrást használja a listbox és ennyi.

Van esetleg ötletetek hogyan lehet megoldani? :R

''Minden este gondolkozz el azon, hogy a holnap amitől tegnap féltél, az ma volt''

(#2609) martonx válasza Don_ (#2608) üzenetére


martonx
(PH! addikt)

Makróval?

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2610) Delila_1 válasza Don_ (#2608) üzenetére


Delila_1
(PH! kedvence)

Itt egy minta.

Lehet, hogy nem erre gondoltál, majd megírod.

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#2611) sztanozs válasza Don_ (#2608) üzenetére

vagy named range-vel...

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2612) Don_ válasza Delila_1 (#2610) üzenetére


Don_
(kvázi-tag)

Jó lett! :C

Köszönöm mindenkinek!

''Minden este gondolkozz el azon, hogy a holnap amitől tegnap féltél, az ma volt''

(#2613) Delila_1 válasza Don_ (#2612) üzenetére


Delila_1
(PH! kedvence)

Örülök neki, szívesen. :)

Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

(#2614) cigam


cigam
(PH! nagyúr)
LOGOUT blog

64bites W8.1-re felmegy a VB2010express? Vagy inkább a VSCommunity-t érdemes felrakni?

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2615) Bobrooney válasza cigam (#2614) üzenetére


Bobrooney
(senior tag)

8-ra felment.

JR Klub, Miller Klub Törzstag eladó cuccok: http://hardverapro.hu/tag/bobrooney

(#2616) martonx válasza cigam (#2614) üzenetére


martonx
(PH! addikt)

Egyértelműen VSCommunity-t. Hacsak nincs valami nagyon-nagyon nyomós okod egy 5 éves IDE-t felrakni.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2617) cigam válasza martonx (#2616) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Már vagy 20 perce telepít ... Nem túl biztató... RapidQ-t csak kicsomagolom klikk, és működik. Eddig 0:1

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2618) martonx válasza cigam (#2617) üzenetére


martonx
(PH! addikt)

Gépfüggő, akár órákig is telepíthet. Azt én se értem, hogy mit tud egy telepítés ennyit elszuttyogni.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2619) cigam


cigam
(PH! nagyúr)
LOGOUT blog

Mindjárt bele is futottam az első problémába:
Public Class Form1
' A konyvtar változóban tárolom el, hogy melyik könyvtárban fut a program.
Dim konyvtar As String = Application.StartupPath

' Feltölti a fájl listát a .txt fájlokkal
Private Sub Fajllistafeltoltes()
Dim dir As New IO.DirectoryInfo(konyvtar)
For Each fajl As IO.FileInfo In dir.GetFiles
If fajl.Extension = ".txt" Then
ListBox1.Items.Add(fajl)
End If
Next
ListBox1.SetSelected(0, True)
End Sub

' Figyeli a lenyomott gombokat
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Enter
MsgBox("Segítség!!!")
End Select
End Sub

' Indul a program
' - betölti a fájl listát

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Fajllistafeltoltes()

End Sub

End Class

Miért kell belekattintani a listbox-ba, hogy észrevegye az ENTER leütését?

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2620) martonx válasza cigam (#2619) üzenetére


martonx
(PH! addikt)

Hú, de elképesztő rég volt, hogy winforms-oztam. Annyi rémlik, hogy az egész ablakod tualjdonságai között kell engedélyezni valami keyakármi tulajdonságot. És akkor már tényleg bárhol figyelni fogja a gomb nyomást, amíg aktív az ablakod.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2621) cigam válasza martonx (#2620) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

A form1-en a keypreview true-ra van állítva.

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2622) martonx válasza cigam (#2621) üzenetére


martonx
(PH! addikt)

Aha, tényleg keypreview. Ha az true, akkor nem tudom mi a gond. Ezt szokták rendszerint elfelejteni.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2623) cigam


cigam
(PH! nagyúr)
LOGOUT blog

Amikor a File.ReadAllLines-al feltöltök egy tömböt, akkor hogyan tudom megállapítani, hogy hány elemes lett a tömb? Magyarul hány sort olvasott be.

A manuel azt is írja, hogy automatice felismeri a karakterkódolást, ehhez képest a hosszú ékezetes magánhangzók problémásak.

Egy notepaddal írt szöveget olvasnék be.

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2624) sztanozs válasza cigam (#2623) üzenetére

pl.:
string[] AllLines = File.ReadAllLines(file);

AllLines.Length vagy AllLines.LongLength

Automatice megpróbálja felismerni - amennyiben UTF-8 BOM-mal vagy UTF-32.
Ha UTF-8 BOM nélkül, vagy ASCII valami kódlappal, akkor azt nem ismeri fel.

Eredetiből:
This method attempts to automatically detect the encoding of a file based on the presence of byte order marks. Encoding formats UTF-8 and UTF-32 (both big-endian and little-endian) can be detected.

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2625) cigam válasza sztanozs (#2624) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Köszi! Működik :)

Akkor az éketes szöveget karakterenként csereberélgessem, vagy van gyorsabb, 1xübb módszer?

[ Szerkesztve ]

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2626) sztanozs válasza cigam (#2625) üzenetére

Állítsd be a megfelelő kódlapot és kakukk.

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2627) cigam válasza sztanozs (#2626) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Jogos, ígyy már minden oké:
IO.File.ReadAllLines(openFile.FileName, System.Text.Encoding.Default)

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2628) cigam


cigam
(PH! nagyúr)
LOGOUT blog

Már majdnem működik a program, csak a lényeget nem tudja :)

Pl. a szövegosztályok metódusait (ha jól tippelek így hívják őket), miért nem hagyja békén?
Pl. a szöveg = left(szöveg,4)-re hibát jelez, mert őszerinte a Left () az a baloldali éltől való távolság pixelben. (ha jól értettem azt amire panaszkodik)

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2629) sztanozs válasza cigam (#2628) üzenetére

Próbálj objektumorientáltan gondolkozni - a left/right/mid csak a visszafele kompatibilitás miatt maradt bent.
Amúgy nem az IO zavar be, hanem az ablak Left paramétere.
Használd inkább a String objektum beépített függvényeit:
szoveg = left(szoveg, 4)
helyett
szoveg = szoveg.Substring(0, 4)

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2630) cigam válasza sztanozs (#2629) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Köszi az irányítást! Anno ZX81-en írtam azt, hogy 10 goto 20, és azóta hány év telt el... :)
Most pl. ott akadtam el, hogy villog a "scroll". (A form-on belül egy imagebox-ot tologatok pixelenként, és az időzítéssel szabályozom a scroll sebességét)

Próbáltam a doublebuffer-t beszűrni, de vagy rosszul csináltam(ezt is), vagy nem segít.
Gondolom a directx-es abla(időzítés?) segítene a dolgon, de ahogy néztem nincs benne a directx lehetősége, csak c++-on és ott is valami fejlesztői fiókot akar tőlem.

Én bénázok, vagy ezzel az ingyenes verzióval tényleg nem lehet directx-es applikációt gyártani?

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2631) sztanozs válasza cigam (#2630) üzenetére

A form beállításai között van valami rajzolási beállítás - lehet, hogy a doublebuffering.
A lényeg az, hogy ne próbálj plusz rajzolásokat beleerőszakolni a rendszerbe, próbáld meg kihasználni azt, amit a rendszer ad.

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2632) cigam válasza sztanozs (#2631) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Addig eljutottam, hogy nem írom ki újra a szöveget 1 pixellel feljebb, mert ez vmiért ette a procit, az egyik mag 100%-on pörgöt.
Most átalakítom a szöveget bitmap képpé, és ezt a képet pöckölöm pixelenként. A prociterhelés már elfogadható 20% körül mocorog, szóval nem a proci fogja vissza a scroll sebességét, de még mindég nem az igazi.

3 dolog jutott eszembe:
- Nem az a baj, hogy a StudioComunity Edition-ban fordítom le, ezért nem natív Win32 app lesz, hanem "csak" egy .NET program?

-Ahogy nézem a WPF programok a csilivilire vannak kihegyezve. Ha abban próbálnám lekódolni, megszünne a villogás?

- Nem lehet hogy az a baj, hogy a listbox-ot tologatom? Úgy is lehetne, hogy a listbox marad fixen, és benne a képet tolom felfele? Mintha a listbox egy ablak lenne, amit mögött elhúzom a képet.

[ Szerkesztve ]

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2633) cigam válasza cigam (#2632) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Termeszetesen nem listbox, hanem picturebox ...

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2634) sztanozs válasza cigam (#2632) üzenetére

Csinálok mindjárt egy próbát a gépemen, nem szabadna villogjon...

C#-ban lesz elsőre (VB.NET már rég nincs a kezemben).

Itten van - semmit nem állítottam a formon és egyáltalán nem villog:
namespace TestControlMove
{
public partial class Form1 : Form
{
bool MozogE = false;
Point Eredeti;

public Form1()
{
InitializeComponent();
}

private void pictureBox1_MouseDown(object sender, MouseEventArgs e)
{
Eredeti = e.Location;
MozogE = true;
}

private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
{
if (MozogE)
{
pictureBox1.Location = pictureBox1.Location + new Size(e.X - Eredeti.X, e.Y - Eredeti.Y);
}
}

private void pictureBox1_MouseUp(object sender, MouseEventArgs e)
{
MozogE = false;
}
}
}

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2635) cigam válasza sztanozs (#2634) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Nem probléma, c#-ban is megcsináltam, de ott se jött össze :B
Köszi a mintát :R , este kipróbálom.

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2636) alfa20


alfa20
(senior tag)

Sziasztok!

egy sima .txt fájlból, hogy tudom feltőlteni a tömbömet?

VB kódban így nézki:
tomb = Array("A1", "B2", "C3", "D4", "E5")

a .txt fájl meg így:

ezt szeretném betőltetni, mert így egyszerübb enne bővíteni a listát.

a másik kérdésem:
- a tömb egyik elemének a helyét, hogy tudom meghatározni, ha ismerem az elemet:
ugye tomb(1) = B2 de D4=tomb(?)

"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)

(#2637) cigam válasza alfa20 (#2636) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

A Split megoldás lehet a beolvasott szöveg szétszabdalására.

A keresésre pedig az Array.IndexOf használata adhat megoldást.

[ Szerkesztve ]

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2638) cigam válasza cigam (#2637) üzenetére


cigam
(PH! nagyúr)
LOGOUT blog

Bocs, azthittem a szöveg fájl is csv. Akkor viszont elég .readline-al beolvastatni soronként

Freeware, és akciós programok egy helyen https://www.facebook.com/pages/Freeware/225578290954074

(#2639) Atomantiii


Atomantiii
(senior tag)

A visdatával hogy tudok az adatbázisba ilyen karaktereket írni?

►, ▲ és ▼, ms access helyesen írja, de ha visdatával akarom megnyitni akkor átalakítja >, ˇ és v karakterekre ami még jó is lenne ha ez a három karakter egyforma lenne magasságban egymással.

(#2640) G.I.JOE


G.I.JOE
(senior tag)

Sziasztok!

VB-ben csináltam egy programot (.net3.5) és szeretném egy másik gépen is futtatni, de mindig csak azt írja ki, hogy hibát észlelt és leáll! Semmi extra nincs benne, form, xls-ből olvasás és txt-be írás. A célgépen fent van a .Net 3.5. A \bin-ből szedtem az exe-t. Telepíteni nem tudok, mert a másik gépen nincs adminom..

(#2641) martonx válasza G.I.JOE (#2640) üzenetére


martonx
(PH! addikt)

Tegyél bele hibakezelést, és írasd ki, hogy mi a hiba :D

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2642) G.I.JOE válasza martonx (#2641) üzenetére


G.I.JOE
(senior tag)

Konkrétan a form sem jön még be.

(#2643) efs válasza G.I.JOE (#2640) üzenetére


efs
(tag)

Van Excel a másik gépen? Mikor olvass a program az xls-t?

Rakj egy Try-Catch-et a Load eventbe, majd írassad ki a hibát.

[ Szerkesztve ]

(#2644) martonx válasza efs (#2643) üzenetére


martonx
(PH! addikt)

Az hagyján, hogy van-e excel a másik gépen, de pont ugyanaz a verziója, pont ugyanaz a két gép nyelve stb...
Amilyen egyszerűnek tűnik, akkora szopás tud lenni az Office automatizáció.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2645) efs válasza martonx (#2644) üzenetére


efs
(tag)

Szerencsére ilyen mélyen nem kellett belefolynom az Excel táblák piszkálásába. :)
Mivel itt már a form sem nyílik meg, gyanús, hogy igazad lesz és nem megfelelő dll-t keres a program, ami miatt összeomlik, mielőtt megjelenne valami.

Egy hiba loggal többet lehetne kezdeni.

[ Szerkesztve ]

(#2646) Atomantiii válasza Atomantiii (#2639) üzenetére


Atomantiii
(senior tag)

Erre valakinek valami ötlete?

[link]

(#2647) martonx válasza Atomantiii (#2646) üzenetére


martonx
(PH! addikt)

Nem tudom mi az a visdata.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2648) Atomantiii válasza martonx (#2647) üzenetére


Atomantiii
(senior tag)

A visual studio 6.0-nak az adatbázis szerkesztő programja. Tudom, hogy eléggé elavult dolog az már 2015-ben, csak van egy programom amin kicsit foltozgatni kell és én még a vb6-hoz értek jobban, a mostani legújabb verziók nagyon kínaiak nekem.

[ Szerkesztve ]

(#2649) martonx válasza Atomantiii (#2648) üzenetére


martonx
(PH! addikt)

Akkor ebben nem tudok segíteni. Minden ami 2005 előtti, az számomra nem létezik.

Keresek szabadúszó webfejlesztő frontendes kollégát távmunkában ASP.NET-es projektekhez!

(#2650) sztanozs válasza Atomantiii (#2646) üzenetére

Felteszem vagy a komponens, vagy az adatbázis (mező), vagy a végén a megjelenítő nem támogatja az Unicode-ot - ezért kerül ez konvertálásra időközben.

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2651) Atomantiii válasza sztanozs (#2650) üzenetére


Atomantiii
(senior tag)

Igen én is úgy gondolom, de az a kérdés, hogy akkor hogy tudnék felfele és lefele álló "kacsacsőr" jelet írni vagy fel / le, illetve oldalra nyilat?

(#2652) Atomantiii


Atomantiii
(senior tag)

Még egy kérdés:

ha van két listview-em vb6-ban és az egyikben ki van jelölve az egyik sor és át akarok váltani a másik listviewre, akkor hogy tudom elérni, hogy a másik listview egyik eleme is ki legyen jelölve?

A selected item-nek kell valahogy megmondani csak nem tudom hogyan.

(#2653) DasBoot


DasBoot
(kvázi-tag)

Szép estét, Mindenkinek! Látom, hogy sok most ismerkedő teszi fel a kérdéseit, Én is ezek közé tartozom. Kérdésem az lenne, hogy egy bizonyos "alakzatot" megrajzoltam és hogy lehetne ezt elmenteni? Az "alakzatban" függőleges és vízszintes vonalak, Label-ek és Text box-ok vannak. Később ezeket az alakzatokat egy CommandButton-nal be is szeretném illeszteni, de most csak az első kérdésemre várom a hozzászólásokat. Egyelőre képet nem tudok készíteni, de igyekszem. Előre is köszönöm a válaszokat. Üdv.: Joe

(#2654) Bobrooney válasza DasBoot (#2653) üzenetére


Bobrooney
(senior tag)

Hát ebből a leírásból nem hiszem hogy bárki is érteni fogja, hogy mit szeretnél.

JR Klub, Miller Klub Törzstag eladó cuccok: http://hardverapro.hu/tag/bobrooney

(#2655) Apollo17hu válasza DasBoot (#2653) üzenetére


Apollo17hu
(senior tag)

Ha ez egy form, akkor szerintem a modulhoz hasonlóan lehet exportálni.

(#2656) DasBoot válasza Bobrooney (#2654) üzenetére


DasBoot
(kvázi-tag)

Köszönöm a választ. Nem is az volt a célom, hogy egyből kapjak választ. Szóval a képen a bekarikázott részeket szeretném elmenteni, de külön-külön. A konkrét dolog, hogy egy PLC progarmban a letrák rajzolását szeretném megoldani. A mentett alakzatokat később egy CommandButton-nal szeretném a megfelelő helyre beilleszteni. Iagzándiból a papíron való rajzolást szeretném kiváltani.

[ Szerkesztve ]

(#2657) DasBoot válasza Apollo17hu (#2655) üzenetére


DasBoot
(kvázi-tag)

Ezek control-ok.

(#2658) DasBoot válasza DasBoot (#2657) üzenetére


DasBoot
(kvázi-tag)

A könyvből olvasás után úgy gondolom, hogy ezt .bmp-ként kellene elmentenem, ill. egy frame-be lehetne beletenni és menteni.

(#2659) DasBoot válasza DasBoot (#2658) üzenetére


DasBoot
(kvázi-tag)

Ez a frame-es dolog nem jó.

(#2660) Atomantiii


Atomantiii
(senior tag)

(#2661) DasBoot válasza Atomantiii (#2660) üzenetére


DasBoot
(kvázi-tag)

Mire?

(#2662) Atomantiii válasza DasBoot (#2661) üzenetére


Atomantiii
(senior tag)

2652 hsz, illetve alatta eggyel.

(#2663) sztanozs válasza Atomantiii (#2662) üzenetére

Olyan rég volt már VB6, hogy szvsz elég sokat utána kellene olvasni - plusz szerintem már senkinek nincs fent fejlesztőkörnyezet, így aktívan senki nem tud segíteni.

Amúgy pl. negyedik elem kijelölésre:
Listbox1.Selected(4) = True

Ha eltünteti, amikor leveszed a fókuszt:
Listbox1.HideSelection = False

Ja amúgy ez kb 3 perc google volt. Ha nem megy az angol, akkor gyorsan állj neki.

[ Szerkesztve ]

JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...

(#2664) Fleed


Fleed
(fanatikus tag)

Helló! Vállal esetleg valaki nagyon kezdő szintű visual basic házi feladat megírásban segítség nyújtást? Kezdőknek adott háziról volna szó és pár ezer ft ot tudnék felajánlani Kérem privátban jelezzetek. Köszönöm

(#2665) Zsolt_974


Zsolt_974
(kvázi-tag)

Sziasztok!

Egy kis segítséget, útmutatást szeretnék kérni, bár látom nem nagyon pörög a téma.
Írogatok egy programot Visual Basic 2008 környezetben. A program soros portról fogad adatokat.
A problémám a következő lenne. A program indulásakor a gépen aktív soros portok száma mellé, hogy lehet az eszköz nevét is kiíratni mint az eszközkezelőben is van? Remélem érthetően fogalmaztam.

A programban a következő sor olvassa be a soros portokat:

ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())

Segítségeteket, válaszotokat előre is köszönöm. :R

Üdv. Zsolt

(#2666) Bobrooney válasza Zsolt_974 (#2665) üzenetére


Bobrooney
(senior tag)

[link]
Ahogy nézem itt iterálással oldotta meg. Remélem jó lesz :)

JR Klub, Miller Klub Törzstag eladó cuccok: http://hardverapro.hu/tag/bobrooney

(#2667) Zsolt_974 válasza Bobrooney (#2666) üzenetére


Zsolt_974
(kvázi-tag)

Köszönöm a gyors választ. :R

Sajnos ezzel is csak a következőt kapom vissza, hogy
COM 1
COM 9

Viszont ezt találtam:
[link]

Ez egy MsgBox-ban vissza adja ezt:

Sajnos a ComboBox1-be nem tudom belevarázsolni és csak a Com 1 jelenik meg a Com 9 nem.
Én csak hobbiszinten programozgatok. :B Viszont kitartóan. :K

Zsolt

(#2668) Bobrooney válasza Zsolt_974 (#2667) üzenetére


Bobrooney
(senior tag)

Gondolom erre gondolsz: MsgBox(queryObj("Description"))
Akkor ha a MsgBox helyett egy String-be rakod bele?

JR Klub, Miller Klub Törzstag eladó cuccok: http://hardverapro.hu/tag/bobrooney

(#2669) Zsolt_974 válasza Bobrooney (#2668) üzenetére


Zsolt_974
(kvázi-tag)

Így indul a program:

A belépés gombra klikkelve:

Ok gombra klikkelve és utána a "Com port lenyílóban ezek láthatók: Com1, Com9, Kommunikációs port(Com1)":

A program kódban az ehhez tartozó sorok:

Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_SerialPort")
_______________________________________________________________________________________

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _Button1.Click

For Each queryObj As ManagementObject In searcher.Get()
MsgBox(queryObj("Name"))
Dim textt As String = queryObj("Name").ToString
RichTextBox1.Text = textt
ComboBox1.Items.Add(textt)

Next

ComboBox1.Items.AddRange(IO.Ports.SerialPort.GetPortNames())
End Sub

Végül is tegnap már ott jártam, hogy a ComboBox-ba is beírja, de sajnos csak a
Kommunikációs port(COM1). Az USB-SERIAL CH340(COM9) nem sikerül kiíratni.
A két port közül miért csak a Kommunikációs port(COM1)-et találja meg?

[ Szerkesztve ]

(#2670) Bobrooney válasza Zsolt_974 (#2669) üzenetére


Bobrooney
(senior tag)

Lehet az USB-t más metódusban tudod lekérdezni. [link]

JR Klub, Miller Klub Törzstag eladó cuccok: http://hardverapro.hu/tag/bobrooney

(#2671) Zsolt_974 válasza Bobrooney (#2670) üzenetére


Zsolt_974
(kvázi-tag)

Bocs, hogy nem válaszoltam, de nem volt rá időm. :R :R :R

Igen közbe rájöttem én is, hogy miért csak a Com1-et találja meg és a Com9-et miért nem. Azért, mert a Com9 egy usb-s eszköz, "virtuális soros port". :W

Viszont ezzel:
Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_PnPEntity")

sikerült megtalálni az USB-Serial CH340(COM9)-et, de sajnos sok PnP eszköz, erőforrások is belekerült a listába. :Y

Útvonal

Fórumok  »  Szoftverfejlesztés  »  Visual Basic
Copyright © 2000-2016 PROHARDVER Informatikai Kft.