Hirdetés
- Google Pixel topik
- iPhone topik
- Xiaomi 15T Pro - a téma nincs lezárva
- Amazfit Active 2 NFC - jó kör
- Android alkalmazások - szoftver kibeszélő topik
- Samsung Galaxy A54 - türelemjáték
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Huawei P30 Pro - teletalálat
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
Új hozzászólás Aktív témák
-
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;
}
}
} -
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) -
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. -
-
Nem, DateTime-ban tárold és a kivonás egy TimeSpan objektumot hoz létre. Ez már magában időtartamot reprezentál. MSDN-ről:
Dim startTime As Date = Now
' Run the process that is to be timed.
Dim runLength As Global.System.TimeSpan = Now.Subtract(startTime)
Dim millisecs As Integer = runLength.Milliseconds -
-
cigam
titán
Hogyan tudnám optimalizálni a dolgot, hogy pl. a reset-et ne keljen újra lekódolni?
...
If e.KeyCode = Keys.F3 Then
perc = "00"
masodperc = "00"
idoszoveg = "00:00"
ido.Text = idoszoveg
End if
....
Private Sub resetgomb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetgomb.Click
perc = "00"
masodperc = "00"
idoszoveg = "00:00"
ido.Text = idoszoveg
End SunVagyis milyen parancsal tudom meghívni a "resetgomb_Clik" rutint?
If e.KeyCode = Keys.F3 Then resetgomb_Click()? -
martonx
veterán
"Vissza akarom kapni a régi jó BASIC nyelvet "visual" nélkül. Eszméletlen miket csináltunk anno a a 8bites otthoni gépekkell..."
Hál'istennek azért a világ néha fejlődik is, gyakran csak nagy köröket fut a fejlődés, de azért egy vb.net-et összehasonlítva egy C64-es BASIC-el a fejlődés igen szembeötlő.
"A továbblépés azért is kétséges, mert pénzt nem adok értük, és nem is keresek velük. Szórakozásnak meg pöttyet drágák, és tényleg nem használnám ki."
Oké, nekem tök mindegy miben programozol, ízlések és pofonok. Viszont legalább ne írj butaságot, hogy azért nem akarsz továbblépni, mert drágák, és nem adsz értük pénzt. Mi a drága egy ingyenes wpf-en? És egy ingyenes ASP.NET-en?
Szóval használj nyugodtan winforms, simán elég lehet sok mindenre. De legalább ne beszélj butaságot. -
bepken
veterán
ja hát én meg ~2 hete, szóval túl sokat én sem tudok segíteni, csak abban, amilyen problémával én is találkoztam eddig
nálam a billentyű figyelés így néz ki:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KeyPreview = True
....tehát (az én olvasatomban legalábbis), ha az adott form aktív, akkor figyeli a leütött billentyűket
illetve van egy "KeyPress" event is:
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If Asc(e.KeyChar) = 13 Then
....ez meg az Enter billentyűt várja (ASCII kód: 13)
egyébként engem kifejezetten zavar, hogy sok dolgot a properties résznél és magában a kódban is meg lehet adni...pontosabban az, hogy a properties résznél már beállított értékek nem derülnek ki a kódból. vagy ezzel csak én vagyok így?
-
1) Használd a kód formázást.
2) kb fejből, szal lehet benne hiba vagy elírásfor ix = 1 to fulek_szama
Dim ujful As TabPage
Set ujful = New TabPage
ujful.Text = "szöveg " & (TabControl1.TabPages.Count + 1)
' ide kéne az as varázskód ami a fülhöz hozzáadja a szovegelosorszam nevü RichTextBox-ot
Dim szovegdoboz As RichTextBox
Set szovegdoboz = new RichTextBox
szovegdoboz.Name = "szovegelosorszam" & (TabControl1.TabPages.Count + 1)
ujful.Controls.Add szovegdoboz
TabControl1.TabPages.Add(ujful)
next
Bevallom olyan 2005 környéke óta a windows forms közelébe se mentem, így csak távoli ködös emlékképekből próbálok felidézni pár akkori tipikus hibámat, és azok megoldását.
Új hozzászólás Aktív témák
- BESZÁMÍTÁS! Gigabyte B450M R5 3600 16GB DDR4 512GB SSD GTX 1070 8GB Zalman S3 Chieftec 700W
- BESZÁMÍTÁS! Gigabyte B360M i5 8400 16GB DDR4 512GB SSD RTX 2070 8GB RAMPAGE Shiva Adata 600W
- BESZÁMÍTÁS! Gigabyte B450M R5 2600 16GB DDR4 256GB SSD GTX 1060 6GB Formula Air Mesh G3 Chieftec500W
- Galaxy S25 SM-S931BLBHEUE - 512 GB - Jeges Kék - Icyblue - Kizárólag a Samsungnál elérhető szín
- BESZÁMÍTÁS! MSI B450M R5 3600 16GB DDR4 512GB SSD RTX 3050 8GB Formula Air Mesh G3 Seasonic 450W
- 27% - MSI MAG 275QF IPS Monitor! 2560x1440 / 180Hz / 0.5ms / FreeSync
- iPhone 15 Pro Max 512GB 87% Esim-es verzió (3hónap Garancia) Kijelzőn pici folt!
- iPhone 13 512GB 100% (1év Garancia)- ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- Telefon felvásárlás!! Honor 400 Lite, Honor 400, Honor 400 Pro
- AKCIÓ! 4TB Western Digital Red Pro SATA HDD meghajtó garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest