As I understand it you can't use but one pattern at a time. I have tried several ways but none of them work. Here is what I use:
Dim DirInfo As New DirectoryInfo("d:\graphics")
Dim files() As FileInfo = DirInfo.GetFiles("*.gif")
For Each File As FileInfo In files...
1. Try putting it in a messagebox to make sure there is something there.
Messagebox.Show(Trim$(rsIncidents.Fields("Notes1").Value & ""))
2. You might have to add ToString to Value
PrintSingleRecord.Wrapsource2.Text = Trim$(rsIncidents.Fields("Notes1").Value.ToString & "")
just add what's in red:
Imports System.IO
Public Class frmMain
Dim NewName As String
Dim NewPath As String = "c:\test"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OpenFileDialog1
If .ShowDialog...
Try this:
Imports System.IO
Public Class frmMain
Dim NewName As String
Dim NewPath As String = "c:\test"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OpenFileDialog1
If .ShowDialog =...
For every problem there are a 100 solutions. Here is mine.
Public Class Form1
Dim str As String = "ABCD123456-3"
Dim ary(9) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tot As Integer = 0
Dim...
The problem is here:
For Each file In filelist
If Microsoft.VisualBasic.LCase(Microsoft.VisualBasic.Left(file.Name, 7)) = "picture" Then
count = count + 1
found = True
End If
Next
When you leave the for loop then your...
I only found one problem with your code that you have shown. You did not show how you plotted your ellipses. I did not want to create a control so I just used a form. The enclosed code shows what I did and it worked.
On your "Private Ellipse5Brush As New SolidBrush(Color.FromArgb(0, 255, 255...
You can also set the form to be a child of the main form by:
You can work on both at the same time. When you minimize the main form then Form2 minimizes automatically. Same with restoreing.
Try something like this:
Dim bmp As Bitmap = Nothing
Dim RectSize As Rectangle = New Rectangle(0, 0, 100, 100)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
bmp = New Bitmap(Me.ClientRectangle.Width...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.