- Yettel topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Android alkalmazások - szoftver kibeszélő topik
- VoLTE/VoWiFi
- Xiaomi 15T Pro - a téma nincs lezárva
- Külföldi prepaid SIM-ek itthon
- iPhone topik
- Milyen okostelefont vegyek?
- Motorola Edge 70 - többért kevesebbet
- Samsung Galaxy A54 - türelemjáték
Új hozzászólás Aktív témák
-
Vladek83
tag
Sziasztok,
vb.net-ben van egy alkalmazásom.
Webview2-ben nyílik meg egy Onedrive táblázat.
Amit szeretnék elérni:
A táblázat egyik cellájába klikkelek, akkor azt adja vissza egy TextBox-ba vagy még ami jobb lenne DataGridView-ben, ezekre nem találtam eddig megoldást..
Ha valakinek lenne ötlete/javaslata szívesen venném..Üdv,
-
Vladek83
tag
válasz
sztanozs
#3174
üzenetére
Szia,
ezt találtam, ez most működik:
Dim aNumber As Double = TextBox1.Text
TextBox1.Text = aNumber.ToString("n2")[köszönöm] kipróbálom
-
Vladek83
tag
Sziasztok!
a következő kód nem azt csinálja, amit szeretnék, 2 tizedesig kellene, hogy számoljon, de sajnos kerekít.:
TextBox1.Text = Format(Val(TextBox1.Text), "0.00")Turtam a netet, de eddig semmi..?
Üdv,
-
Vladek83
tag
Sziasztok,
előre is sorry, ha a kérdés nem ide való..
Kérdésem a következő lenne:
Localhost-on működik / elérem az adatbázist:
Imports MySql.Data.MySqlClient
Public Class Form1
Dim connection As New MySqlConnection("datasource=127.0.0.1;port=3306;username=xyz;password=xyz")
Dim COMMAND As MySqlConnection
Dim table As New DataTableViszont, ha külső tárhelyre töltöm fel, akkor nem jó..
vagy rosszul adom meg az elérési utat..?Imports MySql.Data.MySqlClient
Public Class Form1
Dim connection As New MySqlConnection("datasource=xyz.hu;port=3306;username=xyz;password=xyz")
Dim COMMAND As MySqlConnection
Dim table As New DataTable
Valakinek lenne javaslata?
-
Vladek83
tag
+ (#2880) Ispy köszönöm a javaslatokat! VB.net lenne. Most ismerkedem vele, eddig excelben próbálgattam írogatni..küzdök..

úgy tűnik ezzel jó lehet:Try
Dim search As String = "%" + TextBox1.Text + "%"
Me.TörzsTableAdapter.FillByKereses(Me.TörzsDataSet.Törzs, search, search, search)
Dim imageName As String = DataGridView1.CurrentRow.Cells(3).Value.ToString()
Dim img As Image
img = Image.FromFile(Convert.ToString("D:\Images\") & imageName)
PictureBox1.Image = img
Catch ex As Exception
End Try -
Vladek83
tag
Sziasztok!
Egy kicsit elakadtam, tudna valaki súgni?
Van egy TextBox amibe írok, akkor csak azokat az értékeket jeleníti meg, viszont hibára fut, mert közben egy PictureBox-ban kellene megjeleníteni külön a hozzá tartozó képet..
Együtt nem akar működni a kettő..Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Adatbázis1DataSet.Cikkek' table. You can move, or remove it, as needed.
Me.CikkekTableAdapter.Fill(Me.Adatbázis1DataSet.Cikkek)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim search As String = "%" + TextBox1.Text + "%"
Me.CikkekTableAdapter.FillBySearchCikkek(Me.Adatbázis1DataSet.Cikkek, search, search)
End Sub
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
Dim imageName As String = DataGridView1.CurrentRow.Cells(3).Value.ToString()
Dim img As Image
img = Image.FromFile(Convert.ToString("D:\Images\") & imageName)
PictureBox1.Image = img
End Sub
End Class
Új hozzászólás Aktív témák
- Xbox Series X|S
- Milyen processzort vegyek?
- Mesébe illő csodakábelt tervezett a GeForce-ok leégése ellen a Segotep?
- Bestbuy játékok
- Milyen házat vegyek?
- És akkor a memóriapánik után beköszöntött a HDD-pánik
- Yettel topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Kerékpárosok, bringások ide!
- További aktív témák...
- Lenovo ThinkPad P53 i7-9850H 32GB RAM 256GB NVMe Quadro T2000
- HP ProBook 640 G8 laptop, i3-1115G4, ajándék egér és táska
- Lenovo ThinkPad X13 G2 13.3" -50% AMD Ryzen 5 Pro 5650U Hexa-core 16GB 512GB SSD FHD
- Gaming PC - R5 9600X,RTX 5070 12GB,32GB DDR5,1TB NVMe,850W
- Ultra PC - R7 7800X3D,RTX 5080 16GB,32GB DDR5,1TB NVMe,1200W
- DOKKOLÓ BAZÁR! Lenovo, HP, DELL és egyéb más dokkolók (TELJES SZETTEK)
- Apple iPhone 13 / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
- LG 55C2 - 55" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen5 CPU
- ÁRGARANCIA!Épített KomPhone i5 14600KF 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest





