Új hozzászólás Aktív témák
-
Fl3x
aktív 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!"
-
-
Don_
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?
''Minden este gondolkozz el azon, hogy a holnap amitől tegnap féltél, az ma volt''
-
Delila_1
veterán
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.
-
cigam
félisten
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/freewarenews
-
cigam
félisten
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 ClassMié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/freewarenews
-
martonx
veterán
-
cigam
félisten
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/freewarenews
-
sztanozs
veterán
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...
-
cigam
félisten
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/freewarenews
-
sztanozs
veterán
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...
-
cigam
félisten
válasz sztanozs #2629 üzenetére
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/freewarenews
-
sztanozs
veterán
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...
-
cigam
félisten
válasz sztanozs #2631 üzenetére
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/freewarenews
-
sztanozs
veterán
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...
-
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)
-
Atomantiii
őstag
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.
-
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..
-
#14595328
törölt tag
válasz martonx #2644 üzenetére
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 ]
-
Atomantiii
őstag
válasz Atomantiii #2639 üzenetére
Erre valakinek valami ötlete?
-
martonx
veterán
-
Atomantiii
őstag
-
martonx
veterán
válasz Atomantiii #2648 üzenetére
Akkor ebben nem tudok segíteni. Minden ami 2005 előtti, az számomra nem létezik.
Én kérek elnézést!
-
sztanozs
veterán
válasz 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...
-
Atomantiii
őstag
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.
-
DasBoot
aktív 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
LEGO-ból bármit megépíteni, csak idő kérdése.
-
DasBoot
aktív tag
válasz Bobrooney #2654 üzenetére
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 ]
LEGO-ból bármit megépíteni, csak idő kérdése.
-
DasBoot
aktív tag
-
Atomantiii
őstag
-
DasBoot
aktív tag
-
sztanozs
veterán
válasz 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) = TrueHa eltünteti, amikor leveszed a fókuszt:
Listbox1.HideSelection = FalseJa 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...
-
Fleed
aktív 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
Új hozzászólás Aktív témák
- Milyen billentyűzetet vegyek?
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Nothing Phone 2a - semmi nem drága
- Sok teljesítmény kell a Microsoft Copilot lokális futtatásához
- Anglia - élmények, tapasztalatok
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Gumi és felni topik
- Facebook profil letiltás kapcsolt ismeretlen Instagram fiók miatt
- Politika
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- További aktív témák...
- iMac 2017 27" Retina 5K CTO / i7 4.2 GHz / 40 GB DDR4 / 1 TB SSD + doboz
- iMac 2017 27" Retina 5K CTO / i5 3.8 GHz / 40 GB DDR4 / 1 TB SSD / Radeon Pro 580 8 GB + doboz
- iMac 2017 27" Retina 5K CTO / i7 4.2 GHz / 40 GB DDR4 / 500 GB SSD / Radeon Pro 575 4 GB + doboz
- MacBook Pro 14 M3 Pro, Space Black, 18 GB RAM, 512 GB SSD Bontatlan
- Lenovo ThinkPad P70 Workstation, Mobil munkaállomás, 17" FULL HD IPS, Xeon E3-1505M V5 CPU, 32GB DDR