Keresés: - Visual Basic - Fototrend Hozzászólások

LOGOUT témák

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

Keresés

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

Postas99 őstag

#3183
#3182 Postas99
2023-01-16 15:52:33

Új Válasz
Ú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

Postas99

őstag

#3182 Postas99

#3182 Postas99
Szia!
Csak egy combobox vagy FORM-on levő combobox?

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
Mr. Y őstag

#3143
#3139 Postas99
2020-05-26 12:44:33

Új Válasz
Ú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

Mr. Y

őstag

#3139 Postas99

#3139 Postas99
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?

Sehogyan sem megy.
Szerintem nem a programban van a hiba, ha egyszer az egyik gépen megy, a másikon pedig nem.
Mr. Y őstag

#3138
#3137 Postas99
2020-05-20 19:14:56

Új Válasz
Ú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

Mr. Y

őstag

#3137 Postas99

#3137 Postas99
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

Most lefordul és visszajött az eredeti probléma, ami az egyes gépen nem állt fent.
Mr. Y őstag

#3135
#3133 Postas99
2020-05-20 06:11:38

Új Válasz
Ú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

Mr. Y

őstag

#3133 Postas99

#3133 Postas99
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

Független kérdés:
Van módja annak, hogy egy szöveget ne ASCII formátumban jelenítsen meg, hanem HEX vagy BIN-ben?
Vagy ezt a fordítót nekem kell megírnom?
Mr. Y őstag

#3134
#3133 Postas99
2020-05-19 20:31:44

Új Válasz
Ú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

Mr. Y

őstag

#3133 Postas99

#3133 Postas99
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

Mindenképpen megnézem, aztán visszajelzek. Köszi
Mr. Y őstag

#3132
#3128 Postas99
2020-05-19 20:16:37

Új Válasz
Ú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

Mr. Y

őstag

#3128 Postas99

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

Szintén ugyan az. Fordításnál Error
bsh addikt

#3129
#3127 Postas99
2020-05-19 19:29:39

Új Válasz
Ú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

bsh

addikt

#3127 Postas99

#3127 Postas99
A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.
[Informálódj]

A VBA mint írtad az office közös makró nyelve
hol írtam én ilyet?
combobox feltöltése sql adatokkal az megy, köszi.
multicolumn combobox-hoz építő jellegű hozzászólás?
vagy ha az nem megoldható, akkor mi legyen helyette?
Mr. Y őstag

#3126
#3125 Postas99
2020-05-19 19:07:31

Új Válasz
Ú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

Mr. Y

őstag

#3125 Postas99

#3125 Postas99
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?

Szerintem igen (egyszerre sosincs itt a két gép). Mindkettő 64Bites, így azt gyanítom, hogy azonosak a beállítások is. A debug meg a futtatás, csak más környezetből jöttem
Mr. Y őstag

#3117
#3114 Postas99
2020-05-18 20:55:14

Új Válasz
Ú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

Mr. Y

őstag

#3114 Postas99

#3114 Postas99
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ó?

Persze, hogy van. 4 darab is.
Ugyan az a verzió szerintem, mindkét gépre ugyan onnan szedtem le és ugyan azt telepítettem.
Ugyan úgy Win10 mindkettő. Ugyan úgy Intel, csak a céges egy i5 vPro, az itthoni meg egy i9-es.
Ami még eltérő lehet, hogy az itthoni egy ROG, így a játékok végett gondolom elég sokmindent feltelepített már, lehet ez probléma? Ütközés esetleg?
Plusz volt egy olyan különbség, hogy az itthoni gépen a tűzfal megtámadta, mikor rámentem a Debug-ra. De miután engedélyeztem, már nem volt ezzel baja.
sztanozs veterán

#2465
#2464 Postas99
2014-06-19 15:20:29

Új Válasz
Ú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

sztanozs

veterán

#2464 Postas99

#2464 Postas99
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.

Ez csak akkor működik, ha nem ajax kéréssel megy fel a szerverre:
WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
Ha ajax (és nincs page redirect - pl login miatt), akkor hasznosabb volna az xmlhttprequest-et használni.
Amúgy a fenti miért járhatatlan út?
For x = 1 To többezer '... html input kitöltés '... html submit While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() End While 'Loop Next