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

• #2434 bepken veterán martonx #2433

  Új Válasz 2014-03-19 10:50:14 #2434

  Ú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

  

  bepken

  veterán

  válasz martonx #2433 üzenetére

  köszi!

  suli kapcsán úgy is muszáj C-vel foglalkozzak...szóval lehet, hogy amúgy sem árt meg, ha inkább a C#-ba merülök el jobban.

  persze azzal is tisztában vagyok, hogy ehhez még rengeteg alapozásra van szükség, csak az irányra voltam kíváncsi.

• #2432 bepken veterán

  Új Válasz 2014-03-19 10:26:04 #2432

  Ú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

  

  bepken

  veterán

  írtátok korábban, hogy a VB már nem igazán érdemli meg, hogy jobban beleássa magát az ember...
  tehát az volna a kérdésem, hogy melyik az az alternatíva, amivel a VB-hez hasonlóan egyszerűbb programokat lehetne tervezni?

• #2429 bepken veterán martonx #2425

  Új Válasz 2014-03-15 14:10:18 #2429

  Ú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

  

  bepken

  veterán

  válasz martonx #2425 üzenetére

  igazad van sőt! igazából, amikor belefogtam ebbe a kis programba, még azt hittem, ennyit se kell majd a kóddal foglalkoznom...

  egy verziót már sikerült megcsinálnom a varázsló segítségével - tehát csak importáltam a táblát, betettem azt az egy szövegdobozt, majd megadtam neki a forrást. szóval valóban sokkal kényelmesebb volt na.

• #2423 bepken veterán cigam #2418

  Új Válasz 2014-03-15 08:01:54 #2423

  Ú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

  

  bepken

  veterán

  válasz cigam #2418 üzenetére

  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?

• #2417 bepken veterán

  Új Válasz 2014-03-14 17:01:46 #2417

  Ú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

  

  bepken

  veterán

  sziasztok!

  a következő problémám volna:
  teljesen elölről kezdtem a kis művemet, ezúttal külső adatbázisra hivatkozik és ez kellően meg is bonyolította számomra a dolgokat...

  így néz ki a kereső gomb click event:

  Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
  
  'telefonszám szövegének formázása
  txtTelNumber.Text = ""
  txtTelNumber.Paste()
  txtTelNumber.Text = Replace(txtTelNumber.Text, " ", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "/", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "(", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, ")", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "-", "")
  txtTelNumber.Text = Replace(txtTelNumber.Text, "+", "")
  
  If txtTelNumber.TextLength > 7 Then
  
  If txtTelNumber.Text.StartsWith("06") Then
  txtTelNumber.Text = txtTelNumber.Text.Substring(2)
  End If
  If txtTelNumber.Text.StartsWith("36") Then
  txtTelNumber.Text = txtTelNumber.Text.Substring(2)
  End If
  End If
  
  con.Open()
  sql = "SELECT [tel] from tel"
  da.Fill(ds, "tel")
  con.Close()
  
  For index = 0 To ds.Tables("tel").Rows.Count - 1
  Dim dt As DataTable
  dt = ds.Tables("tel")
  
  If txtTelNumber.Text = ds.Tables("tel").Rows(index).Item("tel") Then
  lbTelNum.Text = ds.Tables("tel").Rows(index).Item("tel")
  Else
  lbTelNum.Text = ""
  End If
  
  If lbTelNum.Text = "" Then
  lbTelNum.Text = ""
  lbExist.Text = ""
  Else
  Me.lbTelNum.Text = Me.lbTelNum.Text
  Me.lbExist.Text = "Már létezik!"
  End If
  Next
  End Sub

  a cél továbbra is az volna, hogy a textbox-ba beírt számot keresse meg az access táblában, majd ha megtalálja, azt jelezze.

  ez ugye most úgy néz ki, hogy ha a "txtTelNumber" mezőbe beírt szám benne van a táblában, annak értéke kerüljön át az "lbTelNum" mezőbe (és mellette az "lbExist" is írjon ki valamit) >> hogyha a "lbTelNum" üres, akkor egyszerűen nullázza ki ezt a két mezőt.

  a gyakorlatban ez működik is, de csak az első érték beadásakor....ha jól sejtem, az lehet a gond, hogy a következő kattintáskor már nem fut le a ciklus.
  próbáltam Else ágon újra beadni neki ugyanezt a ciklust, de csúnyán megakasztottam vele a gépet, úgyhogy valószínűnek tartom, hogy nem az lesz a megoldás...

  várom az ötleteket, véleményeket!

  _____________________________________________________

  szerk.:
  cigam!

  a Form_Load részhez írd be:
  KeyPreview = True

• #2413 bepken veterán martonx #2412

  Új Válasz 2014-03-11 19:54:05 #2413

  Ú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

  

  bepken

  veterán

  válasz martonx #2412 üzenetére

  köszi! utánaolvasok majd, hogyan kell használni - mert gyorsan rákeresve nem igazán fogtam fel a lényegét

  igazából még két dolgot kellene megoldanom a teljes lelki-béke eléréséhez:
  1. az fent említett karakter felülírást (ezt szerintem meg fogom találni guglival)
  2. ha a keresett érték szerepel a csatolt adatbázisban, azt jelezze. - találtam olyan kódot, amivel elértem, hogy msgbox-ként felugorjon a "hibaüzenet", de nekem label-be lenne ideális (ne kelljen feleslegesen ok gombra kattintgatni)...és valamiért ez nem akar összejönni.

• #2411 bepken veterán bepken #2405

  Új Válasz 2014-03-11 11:39:40 #2411

  Ú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

  

  bepken

  veterán

  válasz bepken #2405 üzenetére

  azt hiszem, a telefonszám "konvertálást" is sikerült megoldani, bár a gyakorlatban még csak pár példával próbálkoztam:

  Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
  
  txtFind.Paste()
  txtFind.Text = Replace(txtFind.Text, " ", "")
  txtFind.Text = Replace(txtFind.Text, "/", "")
  txtFind.Text = Replace(txtFind.Text, "(", "")
  txtFind.Text = Replace(txtFind.Text, ")", "")
  txtFind.Text = Replace(txtFind.Text, "-", "")
  txtFind.Text = Replace(txtFind.Text, "+", "")
  
  If txtFind.TextLength > 7 Then
  
  If txtFind.Text.StartsWith("06") Then
  txtFind.Text = txtFind.Text.Substring(2)
  End If
  If txtFind.Text.StartsWith("36") Then
  txtFind.Text = txtFind.Text.Substring(2)
  End If
  
  End If
  
  TelBindingSource.Filter = "[tel] = '" & Me.txtFind.Text & " ' "
  End Sub

  így elviekben a vágólapra vett (legtöbbször keszekusza formátumú) számokat szépen "letisztítja" és ezután keres az adatbázisban

  mennyire elegáns ez így szerintetek?

  illetve arra nem jöttem még rá, hogyan lehetne megoldani, hogy a TextBox-ban található értéket minden alkalommal alapból felülírja.
  nem hozott megoldást az sem, ha beállítottam, hogy 7 karakter hosszú legyen a TextBox, mert ekkor alapból az első 7 karaktert kezdte vizsgálni, ami meg ugye esetemben nem igazán előnyös...

• #2405 bepken veterán bepken #2404

  Új Válasz 2014-03-03 14:07:29 #2405

  Ú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

  

  bepken

  veterán

  válasz bepken #2404 üzenetére

  rendben, az egyik kipiálva:

  a Form1 tulajdonságainál >>"KeyPreview = True"

  majd:
  Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
  
  If Asc(e.KeyChar) = 13 Then
  Me.dataBindingSource.Filter = "[number] = '" & Me.txtFind.Text & " ' "
  End If

  a másik kérdésemre viszont egyelőre nem találtam megoldást...

• #2404 bepken veterán

  Új Válasz 2014-03-03 12:44:11 #2404

  Ú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

  

  bepken

  veterán

  akkor ismét lenne pár kérdésem:

  - hogy lehet azt megoldani, hogy a TextBox-ba beírt szövegre az enter billentyűt lenyomva is rá tudjak keresni? gondolom a TextBox-hoz kell hozzárendelni ezt:

  Private Sub txtFind_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFind.Enter
  
  End Sub

  valahogy így kell nekikezdeni? ha ide beírom ugyanazt a feltételt, amit a "Keres" gombnál működik, akkor sem akar összejönni valamiért...

  - a másik kérdésem pedig az volna, hogyan tudnám megoldani azt, hogy egy a vágólapra felvett számot adott formátumra "átalakítsa"?
  tehát mondjuk egy telefonszám esetében törölje a felesleges szóközöket vagy "/ - +" karaktereket

• #2402 bepken veterán martonx #2401

  Új Válasz 2014-02-28 11:11:34 #2402

  Ú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

  

  bepken

  veterán

  válasz martonx #2401 üzenetére

  próbáltam kicsit egyszerűsíteni - saját magamnak - mivel ez az első vb program, amivel próbálkoznék
  más kezéből egem is irritál az ilyen "felemás" munka, úgyhogy átérzem az ellenszenvedet

  valami ötlet esetleg a kérdésemre?

• #2400 bepken veterán

  Új Válasz 2014-02-28 10:31:04 #2400

  Ú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

  

  bepken

  veterán

  sziasztok!

  a sokadik kezdő kérdésem lesz, szóval bocsi azoktól, akik korábban már nem egyet megválaszoltak más topic-ban

  egy egyszerű programot szeretnék, ami tartalmaz:
  - egy access adatbázist
  - egy "azonFind" TextBox-ot, ahová beillesztve egy azonosító számot
  - egy "btnFind" gombot, mely segítségével a TextBox-ba beírt azonosítószámot tudom kikeresni
  - egy "btnSave" gombot, mellyel hozzá lehet adni az adott azonosítószámot, hogyha még nincs benne az adatbázisban

  Public Class Form1
  
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Me.Munka1TableAdapter.Fill(Me.AzonositoDataSet.Munka1)
  
  End Sub
  
  Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click
  Me.Munka1BindingSource.Filter = "[Azonosítószám] = '" & Me.azonFind.Text & " ' "
  
  End Sub
  
  Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
  Me.Validate()
  Me.Munka1BindingSource.EndEdit()
  Me.TableAdapterManager.UpdateAll(Me.AzonositoDataSet)
  End Sub
  End Class

  eddig meg is vagyok - bár valamiért az adatbázist nem mindig akarja módosítani.....

  na de ezekhez az azonosítószámokhoz az adatbázisban tartozik egy checkbox is!
  szeretném, ha a program ezek értékeinek megfelelően (true/false) meghatározott szöveget adna vissza.

  egyébként az ilyesmit Label segítségével szokás kiíratni? (tehát amikor nem MsgBox féle ablakot szeretnénk, hanem csak egy szöveg változót valahova)

  remélem nem kérdeztem sok hülyeséget...

  köszi erőre is a segítséget!

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