Udvikleren.dk - Seneste [visual-basic] forum tr�de

nedl�sning af filer

Thu, 08 Feb 2018 04:27:58 GMT

Jeg bruger microsoft visual ultimate 2013

Hvordan nedl�ser jeg mine filer i den app jeg har lavet?

Alts� g�r koden ikke tilg�ngelig for brugeren.

Tak null du har v�ret meget hj�lpsom har fors�gt at svare s� godt jeg kunne

Konverter visual basic kode til PHP

Fri, 15 Sep 2017 08:39:40 GMT

Hej,

Skriver for en ven der har brug for hj�lp med at konverter 3 funktioner fra visual basic til PHP.

S� hvis der er en venlig sj�l derude, der gider hj�lpe, vil jeg v�re yderst taknemlig.

Fors�gte at finde en konverter online, men uden held.

VBDotNet kode

 'Calculate the Levenshtein Distance between two strings (the number of insertions,
 'deletions, and substitutions needed to transform the first string into the second)
 Public Function LevenshteinDistance(ByRef S1 As String, ByVal S2 As String) As Long
     Dim L1 As Long, L2 As Long, D() As Long 'Length of input strings and distance matrix
     Dim i As Long, j As Long, cost As Long 'loop counters and cost of substitution for current letter
     Dim cI As Long, cD As Long, cS As Long 'cost of next Insertion, Deletion and Substitution
     L1 = Len(S1): L2 = Len(S2)
     ReDim D(0 To L1, 0 To L2)
     For i = 0 To L1: D(i, 0) = i: Next i
     For j = 0 To L2: D(0, j) = j: Next j
 
     For j = 1 To L2
         For i = 1 To L1
             cost = Abs(StrComp(Mid$(S1, i, 1), Mid$(S2, j, 1), vbTextCompare))
             cI = D(i - 1, j) + 1
             cD = D(i, j - 1) + 1
             cS = D(i - 1, j - 1) + cost
             If cI <= cD Then 'Insertion or Substitution
                 If cI <= cS Then D(i, j) = cI Else D(i, j) = cS
             Else 'Deletion or Substitution
                 If cD <= cS Then D(i, j) = cD Else D(i, j) = cS
             End If
         Next i
     Next j
     LevenshteinDistance = D(L1, L2)
 End Function

VBDotNet kode

 Public Function valuePhrase#(ByRef S1$, ByRef S2$)
     valuePhrase = LevenshteinDistance(S1, S2)
 End Function
 
 Public Function valueWords#(ByRef S1$, ByRef S2$)
     Dim wordsS1$(), wordsS2$()
     wordsS1 = SplitMultiDelims(S1, " _-")
     wordsS2 = SplitMultiDelims(S2, " _-")
     Dim word1%, word2%, thisD#, wordbest#
     Dim wordsTotal#
     For word1 = LBound(wordsS1) To UBound(wordsS1)
         wordbest = Len(S2)
         For word2 = LBound(wordsS2) To UBound(wordsS2)
             thisD = LevenshteinDistance(wordsS1(word1), wordsS2(word2))
             If thisD < wordbest Then wordbest = thisD
             If thisD = 0 Then GoTo foundbest
         Next word2
 foundbest:
         wordsTotal = wordsTotal + wordbest
     Next word1
     valueWords = wordsTotal
 End Function
 
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 ' SplitMultiDelims
 ' This function splits Text into an array of substrings, each substring
 ' delimited by any character in DelimChars. Only a single character
 ' may be a delimiter between two substrings, but DelimChars may
 ' contain any number of delimiter characters. It returns a single element
 ' array containing all of text if DelimChars is empty, or a 1 or greater
 ' element array if the Text is successfully split into substrings.
 ' If IgnoreConsecutiveDelimiters is true, empty array elements will not occur.
 ' If Limit greater than 0, the function will only split Text into 'Limit'
 ' array elements or less. The last element will contain the rest of Text.
 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Function SplitMultiDelims(ByRef Text As String, ByRef DelimChars As String, _
         Optional ByVal IgnoreConsecutiveDelimiters As Boolean = False, _
         Optional ByVal Limit As Long = -1) As String()
     Dim ElemStart As Long, N As Long, M As Long, Elements As Long
     Dim lDelims As Long, lText As Long
     Dim Arr() As String
 
     lText = Len(Text)
     lDelims = Len(DelimChars)
     If lDelims = 0 Or lText = 0 Or Limit = 1 Then
         ReDim Arr(0 To 0)
         Arr(0) = Text
         SplitMultiDelims = Arr
         Exit Function
     End If
     ReDim Arr(0 To IIf(Limit = -1, lText - 1, Limit))
 
     Elements = 0: ElemStart = 1
     For N = 1 To lText
         If InStr(DelimChars, Mid(Text, N, 1)) Then
             Arr(Elements) = Mid(Text, ElemStart, N - ElemStart)
             If IgnoreConsecutiveDelimiters Then
                 If Len(Arr(Elements)) > 0 Then Elements = Elements + 1
             Else
                 Elements = Elements + 1
             End If
             ElemStart = N + 1
             If Elements + 1 = Limit Then Exit For
         End If
     Next N
     'Get the last token terminated by the end of the string into the array
     If ElemStart <= lText Then Arr(Elements) = Mid(Text, ElemStart)
     'Since the end of string counts as the terminating delimiter, if the last character
     'was also a delimiter, we treat the two as consecutive, and so ignore the last elemnent
     If IgnoreConsecutiveDelimiters Then If Len(Arr(Elements)) = 0 Then Elements = Elements - 1
 
     ReDim Preserve Arr(0 To Elements) 'Chop off unused array elements
     SplitMultiDelims = Arr
 End Function

Hj�lp til Visual Basic Programmering

Tue, 10 Jan 2017 10:03:48 GMT

Hej Allesammen

Jeg er netop blevet ansat i et bygge selskab som ejer, drifter og vedligeholder en del ejendomme.

I den forbindelse har de f�et udarbejdet et program til at registrere og systematisere deres bygningers tilstand.

Det er nu 3-4 �r siden dette program blev lavet og programmeret af en studerende, Programmet er s� vidt jeg ved udarbejdet med Visual Basic og med en excel database.

Jeg kan dog ikke f� dette til at virke nu. Den kommer med f�lgende fejlmeldinger n�r jeg fors�ger at �bne programmet op via det excel ark som ligger i mappen hvor han har samlet det hele.

Fejlmelding nr. 1:
Compile error:
Cant find project or library

Nedenst�ende kode er her hvor den umiddelbart mener fejlen skal findes

Private Sub UserForm_Activate()
Application.Visible = False
Dim Counter As Integer
With lstEjendom
Do While IsEmpty(Worksheets("Ejendomme").Range("B2").Offset(Counter, 0)) = False
lstEjendom.AddItem Worksheets("Ejendomme").Range("B2").Offset(Counter, 0).Value
Counter = Counter + 1
Loop
End With

With lstBygningsdel
.RowSource = "Bygningsdel"
End With

txtDatoForTilsyn = Format(Now, "dd-mm-yyyy")
DTPicker1.Value = Now

With lstEnhed
.RowSource = "Enhed"
End With

With lstTid
.RowSource = "Tid"
End With

End Sub

N�r jeg s� bare trykker OK og f�r selve vinduet �bnet, s� forsvinder Visual Basic ikke i baggrunden som de �vrige lignede programmer af denne type jeg tidligere har arbejdet med.

Der er dog intet i vinduet som virker, og her t�nker jeg jo nok at det m� v�re fordi at forbindelse mellem excel arket og programmet er mistet.

Jeg overf�rer s� det hele til min egen pc og sletter den del der melder fejl p�, nu kan jeg igen finde bygninger, printe osv, MEN nu har jeg ikke adgang til den rigtige stig p� serveren og nu vil den ikke gemme noget som helst af det arbejde jeg laver.

Er der nogen som har en id� om hvad jeg kan g�re, eller hvad jeg kan pr�ve?`

Jeg er ved at v�re helt lost, og t�nker at det vil v�re for besv�rligt for mig at begynde at s�tte mig ind i hvordan alt det her kodning og programmering fungere for s� at lave det hele fra bunden af igen?

Mvh
Kenneth

ram overaskende overskredet

Tue, 06 Dec 2016 19:38:24 GMT

jeg har lavet en classe med ca 7 objekter hvoraf halvdelen er arrays det st�rste array hedder ca.50,36,110) s� er der ca tre mere p� ca (50,36) jeg undre mig over at jeg l�ber ud af ram efter at have oprettede classen lidt over 2600gange ps. har 24gb ram og ca 48gb ledig p� c drev.

Gem billede fra picturebox og listbox/textbox

Fri, 29 Jan 2016 19:11:50 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.

Visual Basic - Fra Pixel til Hex

Fri, 09 Oct 2015 15:10:57 GMT

Hej alle.

Jeg er i gang med at lave en Hexagon-Grid-Map, hvor man dynamisk kan s�tte antal hexes i b�de X og Y retning, og det fungerer helt fint.
Men hvordan f�r jeg min 'Mouse Position' oversat til mit HexGrid.??

Jeg har st�vsuget nettet for oplysninger om emnet, men kan ikke finde noget, som jeg - med mit sparsomme intellekt - kan bruge til ret meget.
S� mit h�b er, at en eller anden venlig sj�l herinde vil tage min h�nd i sin, og indf�re mig i 'the Mysterious World of Coordinates'

Mine Hexes er 80 * 70
(se billede)

Venlig Hilsen
MrLES

http://mrles.dk/udvikleren_dk/tile_single_big.png

Er VB6-udviklere en udd�d race?

Wed, 16 Sep 2015 13:14:04 GMT

Hej alle!

Vi leder efter VB6-udviklere!

Vi har en ordentlig bunke legacy-kode i VB6 som vi har udviklet p� siden '98.

Kundegrundlaget er fint og vi s�lger vores produkt, mens vi sidel�bende er ved at l�fte applikationen op p� .NET.

Meeen... hvor pokker finder man kvalificerede VB6-udviklere? Fagforeninger? Pensionistklubber? Udvikleren.dk?

Kender I nogen der har en ber�ringsflade hos VB6ere? Vi tilbyder en arbejdsplads i v�kst, midt i �rhus (evt. mulighed for at arbejde fra vores Aalborg-kontor), til en fornuftig l�n.

Hvem har en god plan, s� vi kan f� nogle udviklere i arbejde?

P� forh�nd tak
Thomas

Visual Basic 2013 - Flere decimaler p� udregninger, langsom applikation

Tue, 07 Oct 2014 20:30:38 GMT

Hej.

Jeg er ved at lave et program i visual basic 2013, men jeg har problemer med at den ikke regner helt pr�cist pga. manglende decimaler.
Formlen som jeg har lavet ser s�dan ud:

Calcform.Label98.Text = Val(Calcform.Label97.Text) * (Val(Me.TextBox7.Text) / 100 + 1)

Det er s� "Label98" jeg gerne vil have til at vise flere decimaler ved denne udregning.

Det andet problem er at jeg nu har f�et lavet en meget lang kode for 1 knap, og det tager nu l�ngere tid f�r den viser resultatet, er der en m�de man kan g�re ens appliktaion hurtigere p� ??

Hvordan kommer gammelt VB6 program til at virke?

Tue, 07 Oct 2014 10:10:00 GMT

Hej

Jeg h�ber, at nogen kan vejlede mig.

Vi har et gammelt, omend meget vigtigt program, som for 5 �rs tid siden er skrevet af en �ldre fritidsn�rd. Programmet tr�kker p� en Access database, og det dumper diverse opg�relse direkte til Excel og skriver til Word-filer.

Det virker ganske up�klageligt med Office 2010 og tidligere. Nu vil vores cloududbyder partout opgradere til Office 2013, og vores fritidsudvikler (som i �vrigt ikke rigtig gider l�ngere) p�st�r, at hans program ikke vil virke med Office 2010.

If�lge ham er programmet skrevet i VB6 og benytter kommandoen CreateObject, som ikke skulle v�re kompatibel med Office 2013.

Han siger, at hvis man udskifter CreateObject med GetObject, s� vil det sandsynligvis virker, men det vil kr�ve, at Excel eller Word SKAL v�re �bent inden kaldet. Jeg er overbevist om, at dette kun vil afstedkomme massevise af problem og programnedbrud, eftersom programmets errorh�ndtering rent ud sagt er yderst ringe.

Jeg vil h�re, hvordan jeg kommer videre herfra.

- Findes der en nyere version af Visual Basic, som har kommandoer, som er kompatible med Office 2013?

- Kan VB6 opgraderes med en eller addon eller lignende til at v�re kompatibel med Office 2013?

- Kan vores VB6-program m�ske konverteres til andet sprog, der har passende kommandoer til Office 2013?

- Eller hvad g�r vi?

- Hvem kan hj�lpe os?

Programmet er i mange henseender meget centralt i driften af vores ganske lille biks.

P� forh�nd tak!

/ solskin

L�n som studerende VBA Udvikler

Sun, 27 Apr 2014 19:59:34 GMT

Hej!

Jeg er blevet indkaldt til en samtale hos et firma som udvikler i VBA til Excel.
Det vil v�re mit f�rste programm�r-job, og jeg er p� andet semester som Software Ingeni�r.

Hvad kan man forvente af l�n, hvis det kommer p� tale til samtalen?
Jeg har ikke rigtig nogen id� om hvad jeg skal forlange, s� h�ber nogen kan give mig et praj.

Microsoft Expression Encoder 4 Screen Capture i Visual Basic eller C#

Sun, 09 Mar 2014 15:07:42 GMT

Hvordan kan jeg f� Microsoft Expression Encoder 4 i Visual Basic eller C# til at optage sk�rmen i wmv eller mp4 video?.

Jeg har pr�vet med Microsoft.Expression.Encoder.ScreenCapture.ScreenCaptureJob, men den optager i Microsoft Expression Encoder Screen Capture format og ikke i wmv eller mp4 format.

Her er min kode:

Dim capturerec As New Microsoft.Expression.Encoder.ScreenCapture.ScreenCaptureJob
Dim videopath As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\strandboscrrec.wmv"
Dim audiodevices As System.Collections.ObjectModel.Collection(Of Microsoft.Expression.Encoder.Devices.EncoderDevice) = Microsoft.Expression.Encoder.Devices.EncoderDevices.FindDevices(Microsoft.Expression.Encoder.Devices.EncoderDeviceType.Audio)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
capturerec.ScreenCaptureVideoProfile.Quality = 100
capturerec.OutputScreenCaptureFileName = videopath
End Sub

Private Sub Rec_Click(sender As Object, e As EventArgs) Handles Rec.Click
capturerec.ResetSettings()
Select Case True
Case FrameRate15.Checked
capturerec.ScreenCaptureVideoProfile.FrameRate = 15
Case FrameRate20.Checked
capturerec.ScreenCaptureVideoProfile.FrameRate = 20
Case FrameRate25.Checked
capturerec.ScreenCaptureVideoProfile.FrameRate = 25
End Select
Dim audiodevices As System.Collections.ObjectModel.Collection(Of Microsoft.Expression.Encoder.Devices.EncoderDevice) = Microsoft.Expression.Encoder.Devices.EncoderDevices.FindDevices(Microsoft.Expression.Encoder.Devices.EncoderDeviceType.Audio)
For Each item As String In CheckedListBox1.CheckedItems
Select Case item
Case "Microphone"
capturerec.AddAudioDeviceSource(audiodevices(0))
Case "Stereomix"
capturerec.AddAudioDeviceSource(audiodevices(1))
End Select
Next
If System.IO.File.Exists(videopath) Then
System.IO.File.Delete(videopath)
End If
capturerec.Start()
Rec.Enabled = False
CheckedListBox1.Enabled = False
FrameRate15.Enabled = False
FrameRate20.Enabled = False
FrameRate25.Enabled = False
End Sub

Private Sub StopB_Click(sender As Object, e As EventArgs) Handles StopB.Click
capturerec.Stop()
Process.Start(videopath)
End Sub

Drag Drop

Sun, 09 Mar 2014 14:56:39 GMT

Hvordan kan jeg lave s� man kan drag droppe filer og billeder ind i en brugerdefineret dialogboks?.

Bare stil sp�rgsm�l hvis der er noget i er i tvivl om.

Screen Recorder VB

Tue, 04 Mar 2014 13:09:42 GMT

Er der nogen der har en ide om hvordan man kaver en screen recorder i visual basic?.

Visual Basic, C#, C++, Objective-C

Tue, 04 Mar 2014 12:40:21 GMT

Er der nogen der har l�st til at v�re med i gruppen "Programmering, VB, C#, C++, Objective-C" p� facebook?.

Nybegynder: Gem/Load data

Mon, 26 Aug 2013 16:39:37 GMT

Hej, jeg er ny til vb. Og er l�bet ind i ind et lille problem.
Jeg har en masse tekstbokse, og n�r jeg trykker p� save skal de gemmes, hvordan gemmer man sine "strings", s� man let kan overskrive de gamle data, og hente dem igen, n�r formen �bnes?

- Jeg har pt. gemt mine "Strings" i nogle .Txt Filer, ,jeg har bare 5 stk's. S� t�nkte og der ikke var en nemmere vej, alts� ingen l�se filer?

Tak p� forh�nd!

- Emil.

Hj�lp til kun at t�lle synlige filer

Tue, 08 Jan 2013 10:49:21 GMT

Hej

Jeg er ved at lave et script som t�ller alle filer i en specifik mappe - herunder filer i undermapper.

Scriptet virker, men t�ller ogs� alle systemfiler og skjulte filer. Hvordan f� jeg den til kun at t�lle de "synlige" filer?

Samtidig kunne jeg ogs� godt t�nke mig at f� talt alle mapper og undermapper!

VBScript kode

 ' VBScript
 Option Explicit
  
 Dim fs ' variable declared outside a procedure (this is a global variable)
        ' this is hold a reference to the file system object
 
  
 ' create an instance
 Set fs = CreateObject("scripting.filesystemobject")
 
 ' count files in windows directory
 Dim CountFilesResult
 CountFilesResult = CountFiles ("C:\Test\")
 
 ' takes a string argument containing the name of the directory
 ' returns an integer contiang the nubmer of files in that direcrectory
 ' and all sub directories
 Function CountFiles (ByVal StrFolder)
     Dim ParentFld
     Dim SubFld
     Dim IntCount
  
         ' note the use of the fs global variable
     Set ParentFld = fs.GetFolder (StrFolder)
     
         ' count the number of files in the current directory
     IntCount = ParentFld.Files.Count
     
     For Each SubFld In ParentFld.SubFolders
         ' count all files in each subfolder - recursion point
         IntCount = IntCount + CountFiles(SubFld.Path)
     Next
  
     ' return counted files
     CountFiles = IntCount
 End Function

H�ber I kan hj�lpe

hvordan load/save af multiline text boxe vb2010 ?

Sun, 26 Aug 2012 11:00:44 GMT

Hejsa h�ber nogen vil hj�lpe en total nybegynder i visual basic 2010

Jeg har lavet et lille program med to multiline textboxe som jeg godt vil have g�mt i en fil. s� man kan �bne filen igen og texten st�r i de rigtige text felter igen.
Har fundet ud af hvordan med en textbox via Readtoend/writetoend men det virke jo ikke med flere textboxe

Hvordan g�r man s� med flere multiline textboxe ?

H�ber i forst�r mit sp�rgsm�l

.net programm�r s�ges

Thu, 05 Jul 2012 12:46:08 GMT

Hej Udviklere

Vi s�ger en dygtig og p�lidelig programm�r som er interesseret i at skrive et plug-in til outlook, som skal automatisere vores procedurer. Vi t�nker det skal laves i .net.

Kort drejer det sig om et plug in som kan scanne emails for sagsnumre, og herefter hente informationen fra mapper og excelark med tilsvarende sagsnumre/oplysninger. Informationsdelingen skal ogs� kunne f�res den anden vej, alts� �ndres fra outlook til excelarket.

P� sigt kan det dreje sig om flere og st�rre opgaver.

Vi har tidligere samarbejdet med en, som desv�rre viste sig at snyde os idet vi havdue betalt up-front, og han ikke leverede. S� betaling bliver "hvidt", ved levering men til geng�ld til en god l�n.

Skriv hvis det har interesse

mvh
Moody

Den ene shortcut virker ikke. hvorfor???

Mon, 28 May 2012 20:23:09 GMT

Hej ALLE!!!

Sidder og n�rkler med et lille problem her!!

Har lavet en autoclicker med en start og en stop knap, med tilh�rende shortcuts til... MEN! min start shortcut virker ikke :/
Og da min stop shortcut virker, og lavet p� pr�cis samme m�de. forst�r jeg det virkelig ikke...

Nogle der har mod p� at hj�lpe lidt??

_____________________ KODEN__________________________

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Windows.Forms.Cursor.Position = New System.Drawing.Point(Windows.Forms.Cursor.Position)
mouse_event(&H2, 0, 0, 0, 1)
mouse_event(&H4, 0, 0, 0, 1)
Timer1.Interval = TextBox2.Text + 1

Dim Startkey As Boolean
Startkey = GetAsyncKeyState(Keys.F2)
If Startkey = True Then
Timer1.Start()

Else

Dim Stopkey As Boolean
Stopkey = GetAsyncKeyState(Keys.F4)
If Stopkey = True Then
Timer1.Stop()

End If
End If

End Sub

Visual Basic - Musseklik t�ller

Fri, 18 May 2012 15:52:03 GMT

Hej alle!!!

Sidder og n�rkler lidt med et lille problem her

Kunne godt t�nke mig en lille boks/label/textbox med en s�kaldt t�ller.
Som skriver hver gang man klikker med venstre mussetast..

Nogle med en lille kode til min foresp�rgsel??
P� forh�nd tak!!

Jannich