ricardog

Visual basic 2008

Ik werk met vb 2008

Dat was ook de bedoeling om hem niet naar de c:\ map de zetten alleen ik wou het ff als voorbeeld hebben hij komt in programfiles/mijnsoftwarenaam te staan. Ik zelf heb al alles geprobeerd wat ik kon en ik kwam er niet uit. Hopelijk kan je me helpen

hallo, Ik ben bezig met een vb programma en als ik een printscreen maak genaamd formimage kan ik hem nu saven naar een map die ik zelf wil kiezen en opslaan als bmp. Nu wil ik graag dat die automatisch naar c:\foto1.bmp gaat en als die al bestaat naar foto2 etc hier is de script foor het opslaan. Dim savefiledialog1 As New SaveFileDialog Try savefiledialog1.Title = "Save File" savefiledialog1.FileName = "*.bmp" savefiledialog1.Filter = "Bitmap |*.bmp" If savefiledialog1.ShowDialog() = DialogResult.OK Then formImage.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) End If Catch ex As Exception trouwens is er een manier om je webbrowser (foto ervan) naar c:\foto1 op te slaan ? hopelijk kunnen jullie me helpen met de script alvast bedankt!

hallo, Ik ben bezig met een vb programma en als ik een printscreen maak genaamd formimage kan ik hem nu saven naar een map die ik zelf wil kiezen en opslaan als bmp. Nu wil ik graag dat die automatisch naar c:\foto1.bmp gaat en als die al bestaat naar foto2 etc hier is de script foor het opslaan. Dim savefiledialog1 As New SaveFileDialog Try savefiledialog1.Title = "Save File" savefiledialog1.FileName = "*.bmp" savefiledialog1.Filter = "Bitmap |*.bmp" If savefiledialog1.ShowDialog() = DialogResult.OK Then formImage.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp) End If Catch ex As Exception trouwens is er een manier om je webbrowser (foto ervan) naar c:\foto1 op te slaan ? hopelijk kunnen jullie me helpen met de script alvast bedankt!

Helaas dat werkt ook niet dat behoord tot mijn intro form en die is wel goed maar de form die de intro te voorschijn laat komen die kan juist niet weg. ps. Bedankt voor de moeite om me te helpen

me.hide is dat het zich zelf verstopt anders zou het dus licentie.hide worden en dat kan niet want dat moet dan me.hide worden als die zich zelf wilt verstoppen.

Werkt ook niet dit is de code van de intro: Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then Me.Hide() licentie.Show() End If dan komt de licentie (de form dat niet weg wilt) deze functie opent dan de basis form Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text.Length = 12 Then If WebBrowser1.DocumentText.Contains(TextBox1.Text) Then MsgBox("Gefeliciteerd de code " & TextBox1.Text & " is gevonden in de licentielijst!", MsgBoxStyle.Information) optie.Visible = True Me.Visible = False Else MsgBox("niet gevonden ?") End If Else MsgBox("u heeft te veel of te weinig leestekens gebruikt", MsgBoxStyle.Exclamation) End If End Sub Hopelijk weet je meer

Dank je voor de reactie maar helaas dat is niet de oplossing precies hetzelfde als hide is dat:boring:

Hallo, Ik gebruik visual basic voor een programma te progammeren. Nu is het probleem als ik op kruisje klik bij de 2é form (1é is intro) dan komt die direct weer tevoorschijn terwijl ik als commando me.hide en dat hij form3 moet starten met form3.show. Als ik dus beide formen voor me heb staan kan ik form 2 maar niet wegkrijgen en form 3 wel gewoon. Weet iemand de oplossing? alvast bedankt!xD

mmm ik zie nie echt iets staan bij properties waar ik double neer kan zetten. Ik kijk er vast overheen maar weet jij uit je hooft waar dat precies staat? of kan je deze code zo veranderen dat die dat automatisch doet? (2 decimalen afronden) code: Label73.Text = CStr(Conversion.Val(Label5.Text) + Conversion.Val(Label6.Text) + Conversion.Val(Label7.Text) + Conversion.Val(Label8.Text) + Conversion.Val(Label17.Text) + Conversion.Val(Label18.Text) + Conversion.Val(Label19.Text) + Conversion.Val(Label20.Text) + Conversion.Val(Label21.Text) + Conversion.Val(Label22.Text) + Conversion.Val(Label23.Text) + Conversion.Val(Label24.Text) + Conversion.Val(Label26.Text) + Conversion.Val(Label28.Text) + Conversion.Val(Label30.Text) + Conversion.Val(Label32.Text) + Conversion.Val(Label34.Text) + Conversion.Val(Label36.Text)).Replace(","c, "."c) Alvast bedankt!

Ok, bedankt mrcash! ik ga het vrijdag proberen want, ik zit nu nog in Turkijke en heb de broncode niet bij de hand. groet, RicardoG:-)

Ik heb nog 1 vraagje. Ik zou graag mijn komma getallen op 2 decimalen willen afronden wan ik heb bijv: 2903,118 dan moet dus,12 worden. Weet iemand de oplossing? alvast bedankt!!!

Ja bedankt mrcash deze code had ik toevallig ook bij de Updater toegevoegd omdat de hele applicatie moest afsluiten om de bestanden te vervangen In iedergeval ik heb net wel even een sluit knop aangemaakt applicatie.exit gelt gelukkig voor alle forms dus ik kan mooi op de laatste pagina een sluit knop maken. Dus dit is ook opgelost verder nog ideeen? of weet je iets om het uiterlijk te verbeteren? groet, RicardoG

ok bedankt voor je antwoord

ja het werkt alweer! ;-) heel erg bedankt Mrcash !!!!! heb je verder nog tips voor me om het programma beter te laten werken?

Ja het werkt hartstikke bedankt maat!!!;-) nog 1 vraagje misschien:D? de laatste als ik bij groep1 (zie bron) lengte en hoogte met komma's invul hoe laat ik daar automatisch van die komma een . maken als ik op een knop druk? of moet ik bij de knop gewoon dit doen? .Replace(","c, "."c) alvast bedankt!!!! je hebt me echt goed geholpen

Werkt niet maar check je PM ;-)

ok mrcash ik wacht met smart op je voorbeeld. Veel succes en alvast bedankt!!

nou iemand?

Jammer dat werkt niet. Heb je nog een idee? ik denk dat we bijna de oplossing hebben want we zijn zo dichtbij Kan je anders geen voorbeeld scripje maken dat label 1 2 3 4 bij elkaar word opgeteld? natuurlijk met komma en dat de uitkomst bij label 5 dan komt? alvast bedankt!;-)

ok bedankt mrcash ik ga het zo thuis proberen. En stegisoft dat was voor visual basic 6 maar ik gebruik 2008 dus werkt het niet. Iemand anders nog meer tips dat ik zo kan proberen=

Ja dat was het bijna! ik had ff 1 veranderd naar CDbl en dat werkte nu veranderde ik dus mijn hele script naar CDbl en dan geeft hij een error als ik op de knop druk. error: Conversion from string "" to type 'Double' is not valid. script van nu: Label73.Text = CDbl(Label5.Text) + CDbl(Label6.Text) + CDbl(Label7.Text) + CDbl(Label8.Text) + CDbl(Label17.Text) + CDbl(Label18.Text) + CDbl(Label19.Text) + CDbl(Label20.Text) + CDbl(Label21.Text) + CDbl(Label22.Text) + CDbl(Label23.Text) + CDbl(Label24.Text) + CDbl(Label26.Text) + CDbl(Label28.Text) + CDbl(Label30.Text) + CDbl(Label32.Text) + CDbl(Label34.Text) + CDbl(Label36.Text) hopelijk weet jij meer! ps.ik rekende de hele tijd met . maar er kwam dus geen 2 decimalen

Hallo, Ik ben net nieuw op deze website en ik zit met een probleem dus ik dacht misschien kunnen jullie me helpen. Ik heb namelijk een calculatie programma gemaakt in Visual basic die bepaalde dingen bij elkaar optelt. Nu heb ik zelf al wat gemaakt (zie hieronder) alleen nu telt hij de komma er niet bij op. Nu heb ik dit dus als script gemaakt: Label73.Text = Val(Label5.Text) + Val(Label6.Text) + Val(Label7.Text) + Val(Label8.Text) + Val(Label17.Text) + Val(Label18.Text) + Val(Label19.Text) + Val(Label20.Text) + Val(Label21.Text) + Val(Label22.Text) + Val(Label23.Text) + Val(Label24.Text) + Val(Label26.Text) + Val(Label28.Text) + Val(Label30.Text) + Val(Label32.Text) + Val(Label34.Text) + Val(Label36.Text) Zou iemand die voor mij zo kunnen aanpassen zodat de getallen achter de komma bij die labels ook erop bij word geteld? Alvast bedankt!!! groet, Ricardo;-)