I would like to get fill a String array with all the images found within a directory.Till now i use the following to get all the images with jpg format Dim List() as string = Directory.GetFiles(Path, "*.jpg")Now i would like to extend it and get all the image formats.Could i use the directory.GetFiles combined with an "ImageFormat enumeration"?
View 2 Repliesthis is my code
Dim str As String = "str1,str2"
Dim array() As String = str.Split(",")
Dim MyListOfTextBoxes() As TextBox = {TextBox1, TextBox2, TextBox3}
[Code]....
i have 5 textboxes. i want to fill just textbox1 and textbox2 with array value. because no i have to word.but when i run the code "str1" repetition on textbox1,textbox2 and textbox3.
In my asp.net page I'm making a copy of a file from my local drive to the server.[code]But when I run this code asp.net throws an exception:But I can browse to this file easily.
View 1 RepliesI have this function which scans a directory for all kinds of files and returns all the filenames with the right extention. After that I cut of the directory string, put it into an array and I wish to pass it on to the next sub.
Public Function SearchList()
Dim directorypath, FileName As String
Dim Test, Test1, Testlength, FleNmLength As Integer
Dim FileNames() As String
[Code] .....
I dont want to have to use a case (1-9) to fill pictureboxes with images, is there any way I can reduce this to one?
For i = 0 to 8
if player = 1
picturebox(i).image = my.resources.x
else
[code]....
I'm trying to fill a pdf with iTextsharp and save a new file with a different name to a directory. I'm not getting any errors when I run it, nor do I see anything in the code as an error. But I'm missing something. Maybe I'm not writing the file to the directory correctly. I removed several af.SetField's for brevity.
Public Sub fill_form(ByVal Source As Object, ByVal e As EventArgs)
Dim newFile As String = "D:\Inetpub\wwwroot\pdfs\" + data1.Text + ".pdf"
Dim ps As PdfStamper = Nothing
Try
[code].....
how to retrive the 10 images from a particular directory in ASP.Net using VB
View 1 RepliesI looking for right code to proportional resizing images in different formats in this peace of code. I would like when this will go through folder to folder.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
For Each File As String In Form1.rt.Items
Dim foundFileInfo As New System.IO.FileInfo(File)
Dim a As String = tB1.Text & "Gallerymanje" & foundFileInfo.Name
Dim b As String = tB1.Text & "Galleryvece" & foundFileInfo.Name
My.Computer.FileSystem.CopyFile(File, a, True)
My.Computer.FileSystem.CopyFile(File, b, True)
Next
Close()
End Sub
I am attempting to load all images from a directory to a FlowLayoutPanel. I am using the GetFiles() method to retrieve the files with a filter to just retrieve JPG files. When I run the program, it returns 'Conversion from string "*.jpg" to type 'Integer' is not valid.' exception. The offending line of code is:
For Each foundFile As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, "*.jpg")
i trying to open a directory to list images in it..i tryed lots of codes but cant get it to work?last one was.
Public Shared Sub Main()
Try
' Only get files that begin with the letter "c."
Dim dirs As String() = Directory.GetFiles("C:\Users\TECHKER\Desktop\PROGRAMMING\PROJECTS\trainersTool\images\plyo", "*bmp")
[code]....
how to show it?with a list box?
im trying to open a directory to list the images in it i have this up to know
Dim strFileSize As String = ""
Dim di As New IO.DirectoryInfo("C:UsersTECHKERPictures")
Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
Dim fi As IO.FileInfo
[Code]...
The code below displays a thumbnail of each image in a specific server directory and when I click on the image it pops up a nice full sized picture. It works perfectly.
I would however, like to be able to delete an image. I first thought I could have a button at the bottom of the page with a checkbox next to each image, giving it a uniqueID as per the filename but as they are dynamically created I couldn't figure how to handle the Click Event on the button for a randomly named Checkbox ID. Then I tried adding a button next to each item and then tried an OnClick & OnServerClick to call a Sub but this didn't work either.
Private Sub ImageList()
If Directory.Exists(Server.MapPath("JobImages" & DBC_JOB_JobID.Text)) Then
Dim MySB As New StringBuilder
[Code].....
How to put jpeg images from my access database into active directory. I'm currently looking at one particular tutorial but its not making any sense. [URL]
View 4 RepliesI'm trying to figure out how to put jpeg images from my access database into active directory. I really don't know where to begin? I'm currently looking at one particular tutorial but its not making any sense. [URL]..
View 2 RepliesHeres the code im using to select images from a directory , i also have a timer delay between each image , but my problem is when i start my app , it start by selectind image 1 (Images are numbered 1-15) but i want to select the images randomly ?
Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
[code].....
how can I search a textbox for a string within a string and if certain word (string) found enable a timer?
View 3 RepliesI have an array of filenames, and an array of files in a directory. I use a for loop in a for loop to check if those files are in that directory. Look at the below code to illustrate my problem. [code]
View 8 RepliesI was trying to do a simiple, fine a string start position, or a string, and it always returns 0
Dim My_Search_String As String
Dim My_Text As String
My_Search_String = "fsl fwb fcb"
[code].....
I am trying to search an array and then say whether the result was found or not.
So far i have:
Option Explicit On
Module Module1
Const MaxAnimals = 20
[Code]....
Now i have looked online and all of them seem to give you like ready made things on VB but i have not used them yet and i know there is an easy way of doing it as my friend managed to do it before but i can't get hold of him.
Basically it is a program (There is more of it but this is not necessary for this) which puts the names of animals into an array then you can either add another animal, or in the sub i am doing at the moment view all the animals in the array but i can't work out how!
I have used StreamReader to read the contents of a file to its end, and parsed each line into an array entry for an array of strings. That part works, and I have verified that each array entry does contain the proper line entry from the file. However, if I were to go and print out (say, in a MsgBox) each line, every line after the first one would look like (Carriage Return)(proper thing), yet searching for the CRs using InStr yields that there is no CR or ControlChars.NewLine etc. character in the string. I'll show you my code:
Dim FileParse(255) as string
Public Function FileRead(ByVal FILENAME As String)
Dim sr As New System.IO.StreamReader(System.AppDomain.CurrentDomain.BaseDirectory & FILENAME)
Dim FileData As String = sr.ReadToEnd
[code]....
I just set the For Loop from 0 to 10 because I am unsure how to tell the loop to end when it has finished with the last entry of the Lines() array, and since the program will later be writing to the source file, it is likely that the number of lines will change (which is why I just arbitrarily set the FileParse array to have 256 spots).
I have following code somewhere in my VB.NET 2008 program to create an array of files found in a folder:
Dim objFolder As New IO.DirectoryInfo(strXMLImportPath)
Dim arrXMLFiles2Import As IO.FileInfo() = objFolder.GetFiles("*.xml")
...
UpdateFileQ(arrXMLFiles2Import)
[Code] .....
When setting "option strict" to on, I'm getting following error on the line:
lbFileQ.Items.AddRange(dirlist)
Overload resolution failed because no accessible 'AddRange' can be called with these arguments:
'Public Sub AddRange(items() As Object)': Option Strict On disallows implicit conversions from 'System.Array' to '1-dimensional array of Object'.
'Public Sub AddRange(value As System.Windows.Forms.ListBox.ObjectCollection)': Value of type 'System.Array' cannot be converted to 'System.Windows.Forms.ListBox.ObjectCollection'.
Although everything works fine with option strict set to off, I'd like to correct this problem. Also note that array "arrXMLFiles2Import" is used later on in the program, so I can't change anything on that.
I want to build an array with info from an XML file.
The number of columns is static, but the rows will be increased once in awhile and I want one column to populate in a combobox while corrosponding selectedindex appears in a textbox. I think I can figure that part out, but currently stuck at the array building.[code...
I'm attempting to run my first program in vb.net and everything works BUT the array.
Here is the archive: [URL]
The problem occurs in the Maps.vb file on line 17 when the assignment of variables to the array starts. When running the breakpoint debugger you will notice that when it reaches line 17 it just skips the whole sub and then the next breakpoint is unable to be found.
I've made a program that calculates the costs of a transport, wich to my own surprice works. Because the prices vary with the weight of the transport, extra services and delivery within the 3 countries of the Benelux (Belgium, The Netherlands and Luxemburg), I use an array. The array is filled with data from a textfile (in this case not *.txt but *.prc). The data in the datafile is presented as follows :
[Code]...
I have a TextBox column in my DataGridView. When the user clicks one of the cells in the column I turn that cell into a DataGridViewComboBoxCell and fill the items using the columns Tag property which is a 1-dimensional array with 3 items. This is what my Tag looks like:
?CType(sender, DataGridView).Columns(e.ColumnIndex).Tag
{System.Array}
(0): ""
(1): "No Reportable Result"
[Code]...
How can I fill this Percentage array with Sql data reader..
Dim StudentID As Integer = Me.ComboBox1.SelectedValue
Dim Percentage() As Integer
Dim con As New SqlConnection("Data Source=.SQLEXPRESS;AttachDbFilename=D:Database
[code].....
I am loading a series of JPG images into an image list then using that to fill a list view. My program is using ALOT of memory by doing this. What would be the easiest way to add the images but take up less memory/time?
View 3 RepliesI'm woking in aprogram that read sms from phone and show them in datagrid.berfore I link the datagrid to the database it read the show the message fine in the datagrid but now it show Error message
the code for the form load Code:Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0" & ";data source=" & Application.StartupPath & "SMS.mdb") Dim Mocmd As OleDbCommand = New OleDbCommand("Select * FROM TableMobinil", con) Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(Mocmd) Dim myDataSet As DataSet = New DataSet()
[Code]...
I am trying to port a program I wrote with old VB 1 and I have many control arrays in the program, and it was so easy to do this in older versions of VB, now I am trying to find how to do this and all the answers I have found are a major productions, to replace something that was so easy to do? I would think that microsoft would make programming easer with each new incarnation. instead they are making it harder. doing away with the DATA and READ statement, now it is much harder to fill an array with a loop, now you have to enter each item in an array ONE by ONE. they did away with the ON statement, I had several ON statements, I had to make complex Select case constructs. to replace a simple one word statement?
To make an array of controls in OldVB all you had to do is Name a Second control the Same as the First, and a dialog pops up and ask if you want to make an array, you click Yes, and that's it, what could be easier than this?
I have been told that the best way to do a search in VB is to fill an array with ALL the records from a table in a database and then filter the records from the array, instead of using the SQL statement Where.
View 25 Replies