Új hozzászólás Aktív témák

• #3187 Postas99 őstag F1DO #3186

  Új Válasz 2024-01-30 14:08:49 #3187

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz F1DO #3186 üzenetére

  A megoldás amit kerestél:

  Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

• #3183 Postas99 őstag Postas99 #3182

  Új Válasz 2023-01-16 15:52:33 #3183

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Postas99 #3182 üzenetére

  A gond azzal van, hogy nem az excel megnyitásra teszed be a combobox populate opciót, hanem a combobox.change opcióra.
  Használd ezt:
  
  Sub Workbook_Open()
'ide tedd a kododat
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If

End Sub

• #3182 Postas99 őstag Sátán44 #3181

  Új Válasz 2023-01-16 15:35:50 #3182

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Sátán44 #3181 üzenetére

  Szia!

  Csak egy combobox vagy FORM-on levő combobox?

• #3150 Postas99 őstag

  Új Válasz 2020-11-18 19:00:12 #3150

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  Matek guru vagy XOR guru segítsége kéne.

  Adott a következő proléma:
  X= Y XOR (Y>>1)
  X értékét tudom.
  Van-e erre nem BRUTE FORCE megoldás valamilyen bit eltolásos módszerben.
  Igazán azért lenne fontos mert ezt a műveletet egymásra épülően kell elvégezni. A kiszámolt Y érték a következő X értéke.
  Előre is köszönöm.

• #3145 Postas99 őstag Bazs87 #3144

  Új Válasz 2020-06-20 23:24:18 #3145

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Bazs87 #3144 üzenetére

  a mátrix elemeket akarod felcserélni ? 1-16 csere 1->16->1 erre gondolsz? Jól értem?

• #3139 Postas99 őstag Mr. Y #3138

  Új Válasz 2020-05-20 19:52:08 #3139

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Mr. Y #3138 üzenetére

  Válasszuk ketté:

  1, Megszámolod a COM portokat.
  2, hozzádadod a combobox elemeihez.

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next
        ComboBox1.Sorted = True

  _________________________________________
  HA van COM PORT (COM1,COM2,COM3)
  akkor kiválasztod az alapértelmezettnek a legelsőnek megtalált értéket, természetesen ha az kell akkor a sorted-et ki lehet venni, ha sorba akarod rendezni akkor ezzel szebb lesz az eredmény.

   If ComboBox1.TabIndex <> 0 Then
            ComboBox1.SelectedIndex = 0
        End If
  Mi lenne ha ezt használnád?

• #3137 Postas99 őstag Mr. Y #3135

  Új Válasz 2020-05-20 16:03:49 #3137

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Mr. Y #3135 üzenetére

  2 textbox kell pl.

  majd ennyit tegyél hozzá (dupla katt a texbox1-re majd kód beillesztés:
  TextBox2.Text = ""
        For Each c As Char In TextBox1.Text
            TextBox2.Text &= Convert.ToString(Convert.ToInt32(c), 16)
        Next

• #3133 Postas99 őstag Mr. Y #3132

  Új Válasz 2020-05-19 20:26:06 #3133

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Mr. Y #3132 üzenetére

  Ezeket próbáltad már?

  [link] [link]
  Valójában mindkettő azt mondja, zárd be a VS-t majd töröld a .vs könyvtárat és a .suo fájlt madj indítsd el a VS-t és próbáld újra

• #3131 Postas99 őstag bsh #3129

  Új Válasz 2020-05-19 20:15:20 #3131

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz bsh #3129 üzenetére

  Mi lenne a cél?

  Miért nem használsz inkább DGV-t?
  Vagy az lenne a fontos hogy a comboboxba feltöltött elemeket ki tudd választani?
  Mert ha túl nagy a populate érték ez a combobox dolog elfajulhat és qrva szar onnan bármilyen adatot könnyen kiválasztani.
  Ehhez képest a datagridview ugyanúgy feltölthető ha sok az elem benne akkor még scrollozható is és onnan is ki lehet szedni current cell value-t.

  Szóval mi lenne a cél?

• #3130 Postas99 őstag bsh #3129

  Új Válasz 2020-05-19 19:43:19 #3130

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz bsh #3129 üzenetére

  VBA-t írtál. VBA!=VB.NET
  Idézlek ha nem gond: "De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez."

  [Gugliztam helyetted] gondolom erre lenne szükséged

• #3128 Postas99 őstag Mr. Y #3126

  Új Válasz 2020-05-19 19:18:33 #3128

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Mr. Y #3126 üzenetére

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next

• #3127 Postas99 őstag bsh #3123

  Új Válasz 2020-05-19 19:10:47 #3127

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz bsh #3123 üzenetére

  A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.

  [Informálódj]

• #3125 Postas99 őstag Mr. Y #3118

  Új Válasz 2020-05-19 18:53:12 #3125

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Mr. Y #3118 üzenetére

  Mindkért fordítás ugyanúgy van beállítva?
  ANYCPU vagy X86, X64?
  Itt lesz a kutya elásva, mi van a debug résszel?

• #3114 Postas99 őstag Mr. Y #3113

  Új Válasz 2020-05-18 06:12:46 #3114

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz Mr. Y #3113 üzenetére

  Nem akarlak h.lyenek nézni van sorosport a gépeden? Csak mert ha az index nullát ad vissza az is egy érték ellenben ha n tudja kérdezni az lehet a probléma.
  Mi a catch lekezelése?

  Ugyazon vs verzióról van szó?
  A .net szintén azonos a két gépen? Os verzió?

• #3060 Postas99 őstag

  Új Válasz 2018-09-28 20:47:43 #3060

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  Sziasztok!

  Lenne egy érdekes problémám:

  Using rdr As New System.IO.StreamReader(openFileDialog1.FileName.ToString())


Do While rdr.Peek() >= 0
InputLine = rdr.ReadLine
InputLine = InputLine.Replace("',", Chr(9))
InputLine = InputLine.Replace("'", "")
InputLine = InputLine.Replace(";", Chr(9))
oRow = oRow + 1
szazalek = oRow

System.Windows.Forms.Clipboard.SetDataObject(InputLine, True)

Try
oBook.Worksheets(1).Range("A" + oRow.ToString).Select()
Catch ex As Exception
End Try

Try
oBook.Worksheets(1).Paste()
Catch ex As Exception
End Try

ProgressBar1.Value = szazalek
Loop
rdr.Close()
End Using

  Ami semmi mást nem csinálna ha nem hibázna, hogy beolvas .CSV fájlokat.
  Ez idáig tiszta, de a fájlok más más felépítésűek ezért egy kódban kellene megoldanom a feldolgozást..

  1, CSV
  'Label S.r.l.',
  'Via Don Mazzucotelli, 6/A',
  '24020 Gorle (BG) Italia',
  'Tel. +39-035-302.812 Fax +39-035-302.815',
  '',
  'Dátum: ','06/08/2018 08:24','FOGYASZTÁS RECEPTENKÉNT','Oldal: ','1 - 5',
  '',
  'Dátum: ','2018.08.01. - 2018.08.01.','Recept:',' - ',
  'Kifejezés értékben: ','Nem','Azonosító:',' - ',
  'Tűrés: ','Letiltva','Eszköz:',' - ',
  '',
  'Recept: ','FOGAD4','Leírás: ','',
  '',

  2, CSV
  'Label S.r.l.';
  'Via Don Mazzucotelli, 6/A';
  '24020 Gorle (BG) Italy';
  'Phone +39-035-302.812 Fax +39-035-302.815';
  '';
  'Date: ';'02/08/2018 12:40';'USAGES by RECIPE';'Page: ';'1 - 6';
  '';
  'Date: ';'01/08/18 - 01/08/18';'Scale:';' - ';
  'Valuation: ';'No';'Operator:';' - ';
  'Tolerance: ';'No';'Customer:';' - ';
  'Recipe:';' - ';
  '';

  A kód kiszedi soroknént és értékenként az aposztróf ' jeleket ha vessző követi ','
  SCV2 esetében viszont a ';' értéket kell feldolgozni.
  Az értékek a sztringbe visszairódnak, majd ezek excel meghívásával cellánként bemásolásra kerülnek a csv fájl teljes feldolgozásáig.

  A HIBA
  hogy excelbe való másoláskor, néha téveszt és RANDOM üres sorokat is berak. Oszlopokat nem téveszt.
  Ezt szeretném kiküszöbölni.
  Elakadtam, hogy hol rontottam el a feldolgozást.

  Esetleg valaki tudna segítséget adni?

  Köszönöm

• #2467 Postas99 őstag

  Új Válasz 2014-06-19 16:09:35 #2467

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  Ment privi.

• #2466 Postas99 őstag sztanozs #2465

  Új Válasz 2014-06-19 15:57:27 #2466

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  válasz sztanozs #2465 üzenetére

  Eddig pont igy írtam meg.
  Csak tippelem, hogy nem működik megfelelően. Mert 1000 lefutást produkálva viszonylag hamar lefut (max 1 perc corei5 8giga ram gigabites háló)

• #2464 Postas99 őstag

  Új Válasz 2014-06-19 14:48:48 #2464

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Postas99

  őstag

  Sziasztok!

  Kicsit elakadtam egy projektben.
  A program egyszerű lenne mint a faék, viszont a tippem az, hogy a többszöri utánolvasásra sem úgy működik amint kéne.

  Adva van egy webbrowser box amiben egy adott oldalt nyitnék meg.

  Majd a megnyitott WEB oldalon kellene az adott input boxokba adatokat préselni. a végén SUBMIT.
  Viszont tudnom kéne, hogy a submit után az adott WEB oldal újratöltődött és küldhetem a következő csomagot.

  Eddig ilyet találtam a vizsgálatra, de mivel az egész ciklust szeretném néhány ezerszer lefuttatni ezért ez járhatatlan út.

  While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
  Application.DoEvents()
  ' MsgBox("busy")
  End While 'Loop

  Valakinek ötlete?
  Akár megshare-elném a programot is, csak működjön szépen, azaz tegye a dolgát.

Új hozzászólás Aktív témák