Udvikleren.dk - Seneste [listbox] forum tr�de

gem billede og textboxe/listbox content

Fri, 29 Jan 2016 11:46:02 GMT

Jeg er i gang med at lave et lille simpelt program i visual basic(2015) hvor det er muligt at loade billeder ind for derefter at indtaste nogle data i textbokse og listbokse, derefter skal billedet gemmes med listbokse og textboksenes indhold, uden scrollbokse og knapper,

Er det muligt med noget kode?

Det er en ven som ikke vil bruge tid p� at lave det i et tegneprogram, han �nsker at det skal v�re s� enkelt som muligt. Hvis i er i tvivl om hvad jeg mener, s� s�g p� google p� qcl kort, s� dukker der en masse op omkring emnet.

Han snakker i amat�r-radio, og der uploader man noget der kaldes qcl kort, som fort�ller hvem man er og hvilken frekvens der er snakket p�.

Her er hvordan min kode ser ud :
Public Class Form1
Private Sub AfslutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AfslutToolStripMenuItem.Click
Application.Exit()
End Sub

Private Sub HentBillederToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HentBillederToolStripMenuItem.Click
OpenFileDialog1.ShowDialog()
End Sub

Private Sub GemBillederToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GemBillederToolStripMenuItem.Click
SaveFileDialog1.ShowDialog()
End Sub

Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
PictureBox1.Image.Save(SaveFileDialog1.FileName + ".jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
End Sub

Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
PictureBox1.ImageLocation = OpenFileDialog1.FileName()
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

Private Sub OmToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OmToolStripMenuItem.Click
'Display the About dialog box
Using objAbout As New AboutBox1
objAbout.ShowDialog(Me)
End Using
End Sub
End Class

Er ikke kommet n�rmere p� at have fundet svaret p� nettet.

Listbox items og SelectedItem

Wed, 19 Jun 2013 09:01:47 GMT

Jeg alle sammen, hvordan kan man v�lge mere end �t item i en listbox og slette dem i runtime?

Jeg har en form hvor der er en listbox, en knap der hedder "Tilf�j person" (tilf�jer en person til listboxen med informationer som navn og kortnummer osv.) og en knap der hedder remove (den skal fjerne personerne igen), men hvordan kan man v�lge f.eks. 2 ting fra listboxen og fjerne begge imens programmet k�rer?

Jeg kan kun skrive en kode der fjern en ad gangen, selvom at listboxens property - SelectionMode - er sat til MulriSimple:

Private Sub btnSlet_Click(sender As Object, e As EventArgs) Handles btnSlet.Click
If lboxDatabase.SelectedIndex < 0 Then
Else
Dim ask As MsgBoxResult
ask = MsgBox("Er du sikker p� at du vil slette " & lboxDatabase.SelectedItem & " ?", MsgBoxStyle.YesNo)
If ask = MsgBoxResult.Yes Then
My.Settings.Names.Remove(lboxDatabase.SelectedItem)
My.Settings.Save()
lboxDatabase.Items.Clear()
For Each Name As String In My.Settings.Names
lboxDatabase.Items.Add(Name)
Next
ElseIf ask = MsgBoxResult.No Then

End If
End If

End Sub

Hj�lp til programmering!!

Sun, 16 Jun 2013 14:25:21 GMT

Jeg er igang med at udvikle et program, hvor man kan oprette en person med informationer som navn, f�dselsdato, kundenummer, kortnummer etc. og n�r man gemmer personen skal den opdatere navne og informationer i en listbox. Problemet er, at jeg gerne vil kunne dobbeltklikke p� et navn, og derefte kunne �ndre informationerne (ps: n�r man trykker p� knappen "Ny person" bliver man henvist til en ny form der har en "gem" knap som opdaterer listbox'en). Men til alle de hardcore programm�rer derude, i vil sikkert hellere se min kode:

Hoved form:

Private Sub btnNyPerson_Click(sender As Object, e As EventArgs) Handles btnNyPerson.Click
Ny_person.Show()
End Sub

Private Sub txtNavn_TextChanged(sender As Object, e As EventArgs) Handles txtNavn.TextChanged
Dim Navn As String = txtNavn.Text.ToString()
Dim Index As Integer = lboxDatabase.FindString(Navn)
If Index = -1 Then
lboxDatabase.SelectedIndex = lboxDatabase.SelectedIndex
Else
lboxDatabase.SetSelected(Index, True)
End If
End Sub

Private Sub btnSlet_Click(sender As Object, e As EventArgs) Handles btnSlet.Click
If lboxDatabase.SelectedIndex < 0 Then
Else
Dim ask As MsgBoxResult
ask = MsgBox("Er du sikker p� at du vil slette " & lboxDatabase.SelectedItem & " ?", MsgBoxStyle.YesNo)
If ask = MsgBoxResult.Yes Then
My.Settings.Names.Remove(lboxDatabase.SelectedItem)
My.Settings.Save()
lboxDatabase.Items.Clear()
For Each Name As String In My.Settings.Names
lboxDatabase.Items.Add(Name)
Next
ElseIf ask = MsgBoxResult.No Then

End If
End If
End Sub

Sekund�r form:

Private Sub btnFortryd_Click(sender As Object, e As EventArgs) Handles btnFortryd.Click
Me.Close()
End Sub

Private Sub btnGem_Click(sender As Object, e As EventArgs) Handles btnGem.Click
If My.Settings.Names Is Nothing Then
My.Settings.Names = New System.Collections.Specialized.StringCollection
If txtNavnForm2.Text = "" Or txtDatoForm2.Text = "" Or txtKNummerForm2.Text = "" Or txtGNummerForm2.Text = "" Or txtKort.Text = "" Then
MsgBox("En eller flere felter er ugylige.", MsgBoxStyle.Exclamation, "Forkert Information")
Else
My.Settings.Names.Add(txtNavnForm2.Text + " // " + txtDatoForm2.Text + " // " + txtKNummerForm2.Text + " // " + txtGNummerForm2.Text + " // " + txtKort.Text)
My.Settings.Save()
Me.Close()
End If
Else
If txtNavnForm2.Text = "" Or txtDatoForm2.Text = "" Or txtKNummerForm2.Text = "" Or txtGNummerForm2.Text = "" Or txtKort.Text = "" Then
MsgBox("En eller flere felter er ugylige.", MsgBoxStyle.Exclamation, "Forkert Information")
Else
My.Settings.Names.Add(txtNavnForm2.Text + " // " + txtDatoForm2.Text + " // " + txtKNummerForm2.Text + " // " + txtGNummerForm2.Text + " // " + txtKort.Text)
My.Settings.Save()
Me.Close()
End If
End If
txtNavnForm2.Clear()
txtDatoForm2.Clear()
txtKNummerForm2.Clear()
txtGNummerForm2.Clear()
txtKort.Clear()
Hiller�dSygehusDatabase.Hiller�dSygehusForm.lboxDatabase.Items.Clear()
For Each Name As String In My.Settings.Names
Hiller�dSygehusDatabase.Hiller�dSygehusForm.lboxDatabase.Items.Add(Name)
Next
End Sub

Hvor og hvordan kan jeg skrive en kode, der tillader, ved dobbeltklik p� person i hovedformen, at �ndre informationerne?

P� forh�nd tak, jeg har en deadline s� h�ber p� svar hurtigst muligt!

/Sune

php/ajax - opdater select box afh�ngig af anden select box

Wed, 13 Jul 2011 08:58:14 GMT

Hej alle,

Jeg har to select list p� min side, hvor jeg i den f�rste har information fra databasen.
I den anden select box, skal jeg have information, baseret p� hvad der er valgt i den f�rste select box.
S� jeg skal lave noget med: onChange...i den f�rste, og oprette et xmlhttprequest, da siden ikke bliver submitted, men blot den ene box der skal opdatere sig afh�ngig af hvad der er valgt.

Jeg har ikke brugt ajax f�r, men jeg har dette som udgangspunkt, som ikke fungerer... :-)
F�rste select box;

PHP kode

 <?php // Her tages position ud fra DB, til brug i drop down liste
 $sqlCommand="SELECT id, linknavn, pos FROM subjects WHERE id > 1 ORDER BY pos ASC";
 $result = mysqli_query($connection, $sqlCommand);
 ?>
 <select name="position" onchange="showUser(this.value)">
 <option value="<?php echo $til_subject; ?>"><?php echo $current_subject; ?></option>
 <?php 
 while($row=mysqli_fetch_array($result)){
 echo '<option value=' . $row['id'] . '>' . $row['linknavn'] . '</option>';    
 }
 echo "</select>";
 ?>

Min anden select box, kommer s� lige efter, og jeg har skrevet de informationer der skal hentes fra DB, men jeg ved ikke om de overhovedet skal st� der, eller om de skal st� i JS.filen l�ngere nede?
$subjectid, er id fra den f�rste select box, der bruges til at finde de rigtige positioner med i den anden..

PHP kode

 <?php
 echo '<select name="page_position">';
 $sql = "SELECT id, pos FROM pages WHERE subjectid = $subjectid";
 $result_from_first_select_list = mysqli_query($connection, $sql);
 while($row = mysqli_fetch_array($result_from_first_select_list)){
 echo '<option value=' . $row['id'] . '>' . $row['linknavn'] . '</option>';
 }
 echo "</select>";
 ?>

Jeg har fors�gt at oprette en js fil der ser s�dan her ud, men jeg er lidt p� herrens mark, da jeg ikke har benyttet AJAX f�r:

JScript kode

 function MakeRequestObject(){
 var xmlhttp=false;
 try {
 xmlhttp = new ActiveXObject('Msxml2.XMLHTTP');    
 } catch (e) {
 try {
 xmlhttp = new ActiveXObject('Microsoft.XMLHTTP');
 } catch (E) {
 xmlhttp = false;
 }
 }
 if(!xmlhttp && typeof XMLHttpRequest!='undefined'){
 xmlhttp = new XMLHttpRequest();    
 }
 return xmlhttp;
 }
         
 function showUser(cat){
 var xmlhttp=makeRequestObject();
     xmlhttp.open('GET', 'rediger.php?&page_position='+cat, true);
         xmlhttp.onreadystatechange=function(){
             if(xmlhttp.readyState==4 && xmlhttp.status==200){
     var content = xmlhttp.responseText;
     if ( content ) {
 document.getElementByTagName('page_position').innerHTML = content    
             }
     }
 }
 xmlhttp.send()
 }

Er dette korrekt syntax?
xmlhttp.open('GET', 'rediger.php?&page_position='+cat, true);
document.getElementByTagName('page_position').innerHTML = content
xmlhttp.send()

Og hvor skal jeg skrive database query, til den anden select box?

Der hvor den st�r nu?
Inde i js.scriptet?
Et helt 3. sted?

Jeg h�ber at h�re fra en shark herinde, der kan hj�lpe mig p�rette vej!
Da det er det sidste jeg lige mangler f�r min backend virker helt :-)

Jan

Nybegynder i VB 2010

Tue, 22 Mar 2011 20:48:43 GMT

Hej,

Jeg �nsker en s�gefunktion der (uden brug af command button) via brugerinput i textbox1 finder og markerer det fundne ord i listbox1, og helst s�ger imens der skrives i textbox1. Programkoden ser forel�bigt s�dan ud:

Private Sub TextBox1_GotFocus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus 'empties textbox1 when get focus
TextBox1.Clear()
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 'search listbox1 for word entered in textbox1
ListBox1.SelectedItem = ListBox1.FindString(TextBox1.Text)
If Not TextBox1.Text = "" Then
ListBox1.MultiColumn = False
ListBox1.SelectionMode = SelectionMode.MultiExtended
End If
ListBox1.Focus()
End Sub

Private Sub ListBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseWheel 'makes the mouewheel work in listbox1
If e.Delta > 0 Then
SendKeys.Send("{UP}") 'If the wheel is going up
Else
SendKeys.Send("{DOWN}") 'If the wheel is going down
End If
End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'listbox1 contains this text
Button1.ForeColor = Color.Red 'Button that opens listbox1
ListBox1.Items.Clear()
ListBox1.Focus()
ListBox1.Items.Add("A command in military terminology is an organisational unit that the individual in Military command has responsibility for.")
end Sub

Mit problem er at det f�rste bogstav jeg indtaster i textbox1 kan ses, men starter ingen s�gning. N�ste bogstav jeg taster kan IKKE ses, men starter en s�gning, dog kun p� f�rste bogstav i teksten. Efterf�lgende indtastede bogstaver "flytter" bare markeringen til et andet sted i listboxen, hvor p�g�ldende bogstav er begyndelsesbogstavet.
Jeg vil gerne have programmet til at finde et match fra textbox1 i listbox1, og ogs� gerne markere det. Hvis muligt m� s�gningen gerne foreg� uden command buttons, og gerne "as entered" dvs. f�rste indtastede bogstav genererer en s�gning, som udvides efterh�nden som flere bogstaver bliver indtastet. Jeg undskylder for min manglende evne til selv at programmere; jeg har klaret mig med online hj�lp indtil nu, men s�gefunktion i listbox er noget kringlet beskrevet, og virker langtfra altid efter hensigten. Kan nogen hj�lpe?
P� forh�nd tak
Rubber Duck