|
You don't need to use the Form_Load event.
Instead, first create public properties in the dialog form for each variable you wish to input.
Then, to use the form, first create an instance of the form class, and set all the properties with the input values. Then show the form modally.
|
|
|
|
|
' Dim Account_Name, PolicyNumber, TransCodeOrig, TransEffDate, Override_Action, Override_New_Renewal, Override_Transaction_Code, ModifiedDate, ModifiedUID, Plan_Year As String
Properties like so?
Public Property Account_Name() As String
Get
Return Me.txtAccountName.Text
End Get
Set(ByVal Value As String)
Me.txtAccountName.Text = Value
End Set
End Property
Public Property PolicyNumber() As String
Get
Return Me.txtPolicyNumber.Text
End Get
Set(ByVal Value As String)
Me.txtPolicyNumber.Text = Value
End Set
End Property
Public Property TransCodeOrig() As String
Get
Return Me.cmbOriginalTransCode.Text
End Get
Set(ByVal Value As String)
Me.cmbOriginalTransCode.Text = Value
End Set
End Property
|
|
|
|
|
What I have done is I build one public function and instead of load I am using that function
' inside modal form
Public function LoadForm ( x as int,list of other parameters) as boolen
' do load stuff here
return true
''' if error comes then return false
end function
now calling from the main form is
Dim frm as new form1
if frm.loadForm(parameters)=true then
frm.showdialog
end if
|
|
|
|
|
I am not calling from a form the dialog() I am calling it from a modify click button event.
|
|
|
|
|
offcourse you have to call it from any button click or any other event but ultimately the solution is as I told you. and if there is not modal/dialog form then please put the proper subject when you are submitting the problem.
|
|
|
|
|
Hi I am Deepak. I want to know that how i can give the XP look to the VB.net controls without making a saperate control with GDI programming.
I have made some controls like XP control but when i change the Scheme Default XP to Classic from control panel my control does not change its apearance. And these control also reduces the performance of Application.
Please help me.
|
|
|
|
|
In the constructor of your main form add the following:
Application.EnableVisualStyles()
Then you have to set the FlatStyle of your controls to System.
|
|
|
|
|
Hi I am Deepak. I want to know that how i can give the XP look to the VB.net controls without making a saperate control with GDI programming.
I have made some controls like XP control but when i change the Scheme Default XP to Classic from control panel my control does not change its apearance. And these control also reduces the performance of Application.
Please help me.
|
|
|
|
|
Hello,
I'm tying to work with a dll written in C that control's my fingerprint reader, the problem is i can't convert image data to a valid image in vb
dot net. The function EndAcquireImage fills a byte array with image information, the function ATCopyImagePixels extracts the pixels from the EndAcquireImage image data. With the ATGetImageXYSizes you can get width/height.
I tried several ways no luck at all, can someone help me?
Greetz
Dave
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic.ControlChars
Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Structure _tsAT_API_MSG
Dim uiMessageType As UInt16
Dim pMessageData As IntPtr
End Structure
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATInit", SetLastError:=True)> _
Public Shared Function ATInit() As Int16
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATOpenSensorA", SetLastError:=True)> _
Public Shared Function ATOpenSensor(ByVal pszStrSensorName As SByte, ByVal iOpenMode As Int16) As Int16
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATBeginAcquireImage", SetLastError:=True)> _
Public Shared Function ATBeginAcquireImage(ByVal RetProc As CallbackHandler, ByRef uiCallerDWord As IntPtr, ByVal uiOperationType As UInt16, ByRef pVerifyTemplate As IntPtr) As Int16
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATEndAcquireImage", SetLastError:=True)> _
Public Shared Function ATEndAcquireImage(ByVal pImageItem() As System.Byte) As Int16
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATReleaseMessage", SetLastError:=True)> _
Public Shared Sub ATReleaseMessage(ByRef APIMsgToRelease As _tsAT_API_MSG)
End Sub
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATGetImageBufferSize", SetLastError:=True)> _
Public Shared Function ATGetImageBufferSize() As Int32
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATGetImagePixelBufferSize", SetLastError:=True)> _
Public Shared Function ATGetImagePixelBufferSize(ByVal pImageItem() As System.Byte) As Int32
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATCopyImagePixels", SetLastError:=True)> _
Public Shared Function ATCopyImagePixels(ByVal pPixelBuffer() As System.Byte, ByVal pImageItem() As System.Byte) As Int16
End Function
<DllImport("ATSC63.dll", CallingConvention:=CallingConvention.Cdecl, _
CharSet:=CharSet.Auto, EntryPoint:="ATGetImageXYSizes", SetLastError:=True)> _
Public Shared Function ATGetImageXYSizes(ByVal pImageItem() As System.Byte, ByRef piImageHeight As Int32, ByRef piImageWidth As Int32) As Int16
End Function
Delegate Sub CallbackHandler(ByRef uiCallerDWord As IntPtr, ByRef tsAT_API_MSG As _tsAT_API_MSG)
Public ImageItem() As System.Byte
Public ImageBufferSize As Int32
Public PixelBuffer() As System.Byte
Public PixelBufferSize As Int32
Public PixelHeight As Int32
Public PixelWidth As Int32
Public Sub translateInfo(ByRef tsAT_API_MSG As _tsAT_API_MSG)
Dim msgnumber As Int16 = Int16.Parse(tsAT_API_MSG.uiMessageType.ToString)
Select Case msgnumber
Case 0 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_NEW_DISPLAY_IMAGE"
Case 1 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_FINGER_DETECTED"
Case 2 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_FINGER_REMOVED"
Case 3 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_DATABASE_CHANGE"
Case 4 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_PLACE_FINGER"
Case 5
txtInfo.Text = txtInfo.Text & CrLf & "AT_API_ACQUIRE_DATA_RDY"
process_AT_API_ACQUIRE_DATA_RDY()
Case 6 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_ENROLL_DATA_RDY"
Case 7 : txtInfo.Text = txtInfo.Text & CrLf & "API_VALIDATE_DATA_RDY"
Case 8 : txtInfo.Text = txtInfo.Text & CrLf & "API_VERIFY_DATA_RDY"
Case 9 : txtInfo.Text = txtInfo.Text & CrLf & "API_IDENTIFY_DATA_RDY"
Case 10 : txtInfo.Text = txtInfo.Text & CrLf & "API_VERIFY_DATA_RDY"
Case 11 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_NO_CORE"
Case 12 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_LIFT_AND_REPLACE"
Case 13 : txtInfo.Text = txtInfo.Text & CrLf & "T_API_TIMEOUT"
Case 14 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_LOST_SENSOR_FOCUS"
Case 15 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_FAKE_FINGER_DETECTED"
Case 16 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_RESERVED_1"
Case 17 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_FAST"
Case 18 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_SLOW"
Case 19 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SENSOR_SURFACE_DIRTY"
Case 20 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SLIDE_FINGER"
Case 21 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_RESLIDE_FINGER"
Case 22 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_NAV_DATA_RDY"
Case 23 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_SHORT"
Case 24 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_SKEWED"
Case 25 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_FAR_LEFT"
Case 26 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_FAR_RIGHT"
Case 27 : txtInfo.Text = txtInfo.Text & CrLf & "AT_API_SWIPE_TOO_LITTLE_PRESSURE"
Case Else : MessageBox.Show(msgnumber.ToString)
End Select
ATReleaseMessage(tsAT_API_MSG)
End Sub
Private Sub parseGinfo(ByVal strInfo As String, ByVal result As Int16)
txtGinfo.Text = txtGinfo.Text & CrLf & strInfo & result.ToString
End Sub
Private Sub Messagehandler(ByRef uiCallerDWord As IntPtr, ByRef tsAT_API_MSG As _tsAT_API_MSG)
translateInfo(tsAT_API_MSG)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim result As Int16
result = ATInit()
parseGinfo("init: ", result)
result = ATOpenSensor(SByte.Parse("0"), Int16.Parse("2"))
parseGinfo("opensensor: ", result)
result = ATBeginAcquireImage(AddressOf Messagehandler, IntPtr.Zero, UInt16.Parse("0"), IntPtr.Zero)
parseGinfo("BeginAcquireImage: ", result)
End Sub
Private Sub process_AT_API_ACQUIRE_DATA_RDY()
Dim result As Int16
ImageBufferSize = ATGetImageBufferSize()
ReDim ImageItem(ImageBufferSize)
result = ATEndAcquireImage(ImageItem)
parseGinfo("EndAcquireImage: ", result)
PixelBufferSize = ATGetImagePixelBufferSize(ImageItem)
ReDim PixelBuffer(PixelBufferSize)
result = ATCopyImagePixels(PixelBuffer, ImageItem)
parseGinfo("CopyImagePixels: ", result)
result = ATGetImageXYSizes(PixelBuffer, PixelHeight, PixelWidth)
parseGinfo("GetImageXYSizes: ", result)
MessageBox.Show(PixelHeight & " " & PixelWidth)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ms As New MemoryStream(PixelBuffer)
pbPrint.Image = Image.FromStream(ms)
pbPrint.SizeMode = PictureBoxSizeMode.CenterImage
End Sub
End Class
|
|
|
|
|
You'll have to consult the documentation on that library. Without knowing anything about the pixel format (like bits per pixel, color depth, palette indexing, data format) it's try to send to you, you'll only get it to work by stumbling on it by complete accident. Not a very efficient method of writing code, is it?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I looked at an image saved from the C++ example application and i noticed the following things.
bitmap 8bit 256 colors grayscale
After this I searched on google and found some example's, I tried some, none of them work. I keep getting argument exception, invalid parameter used when i try to read from stream. Anyone has some suggestions? At the moment I'm still waiting for an official reply from authentec for the return image information.
Dim image As Bitmap
Dim stream As MemoryStream = New MemoryStream(PixelBuffer)
Dim pFormat As PixelFormat = PixelFormat.Format8bppIndexed
Dim tmpBmp As Bitmap = New Bitmap(1, 1, PixelFormat.Format8bppIndexed)
Dim greyPal As ColorPalette = tmpBmp.Palette
Dim i As Integer
For i = 0 To greyPal.Entries.Length - 1
greyPal.Entries(i) = Color.FromArgb(i, i, i)
Next
image = New Bitmap(96, 96, pFormat)
image.Palette = greyPal
image.FromStream(stream)
pbPrint.Image = image
|
|
|
|
|
Hi. I am new in programming authentec fingerprint device.
my only reference is your code and may i ask if have you figured out how to stream
the captured image from the fingerprint readear. thanks in advance.
|
|
|
|
|
Hello...
I ran into an interesting situation yesterday when writing some code behind a form in MS Access 2003.
On change for a textbox I wanted to search a list of parts so as the user typed in the part number the code would search down the list and find the first match. My problem was it took a little longer then what I expected.
I would like to try to make this a multi-threaded app where I do the search in another thread and return control to the screen. Would I need to use C# or VB.NET and create an add-in or is there a way to create new threads?
Thanks
Will
|
|
|
|
|
The VB6 IDE cannot handle debugging a multithreaded app. If you stop the execution ANYWHERE in your code while another thread is running, you'll instantly crash the IDE.
I'm not saying that it's can't be done, it's just very difficult to do.
A speed improvement to your search would probably be in indexing your primary search field.
Another one is if your using something like
SELECT * FROM table WHERE something LIKE 'som%'
The '*' represents returning all fields in all the records that match the search criteria. Don't do this. Narrow it down to only the fields you need to return.
SELECT field1, field2 FROM table WHERE something LIKE 'som%'
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thank you for the reply.
Couple things:
1) The view that I an using is linked from SQL Server and yes the table has been normalized
2) I am searching a listbox that has been populated and not hitting the view at all
Let me post some code to clear this up a little
TEXTBOX EVENT:
<br />
<br />
Private Sub txtPartSearch_Change()<br />
'<br />
' Created by William O'Malley<br />
' I would like to user to be able to type in part of a Part Number<br />
' and have the list activly search for a match baised on what is typed in<br />
'<br />
' Ex:<br />
' If I type in 12 then go to the first match<br />
' if I type in 1234 then go to the first match<br />
'<br />
' This will happen as they type<br />
'<br />
Dim sLength As Integer 'how long is the string<br />
Dim sSearch As String 'what am I looking forgy<br />
Dim iListCount As Long<br />
'<br />
'<br />
sLength = Len(Me.txtPartSearch.Text)<br />
sSearch = Me.txtPartSearch.Text<br />
iListCount = Me.lstPartNumbers.ListCount<br />
'<br />
Me.lblSearchingOf.Caption = Me.lstPartNumbers.ListCount<br />
'<br />
findInListBox sLength, sSearch, iListCount<br />
'<br />
End Sub<br />
<br />
FUNCTION USED TO SEARCH:
<br />
Function findInListBox(ByVal sLength As Integer, ByVal sSearch As String, ByVal NumberOfRowsToSearch As Long)<br />
'<br />
' This function will be used to perform the search on<br />
' the list box<br />
'<br />
Dim i As Long<br />
Dim sStringToCheck As String<br />
'<br />
For i = 0 To NumberOfRowsToSearch<br />
'<br />
Me.lblSearching.Caption = CStr(i + 1)<br />
sStringToCheck = Left(Me.lstPartNumbers.Column(0, i), sLength)<br />
'<br />
If (sStringToCheck = sSearch) Then<br />
'<br />
Me.lstPartNumbers.Selected(i) = True<br />
'<br />
Exit For<br />
'<br />
End If<br />
'<br />
Next i<br />
'<br />
End Function<br />
Although this only takes a few seconds I want it faster. So I figured that I could call my findInListBox function in a new thread that and return control to the screen. So the user would be able to continue typing as fast as they want with no problem because the search would be in the background.
Thank you again for the reply.
William O'Malley
-- modified at 9:00 Friday 9th September, 2005
|
|
|
|
|
OMalleyW wrote:
2) I am searching a listbox that has been populated and not hitting the view at all
OK. You didn't mention this before...
Instead of do string comparisons, my only suggestion would be to build an index tree of the data in the listbox. When you hit a key, you're search only returns items that start with that letter. With the next key, you only search the items returned from the first search. When the third key is his, you only search the items from the second search, and so on, ...
Check out this[^] series of articles on MSDN for some theory and examples.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thank you for the link and info...
When I figure this out I will post my new solution.
Thanks!
Will
|
|
|
|
|
Can anyone help me?
I have 4 textboxes 1,2,3,4
How as you enter a value in a textbox that it automatically update say textbox4 which is a readonly box.
What is the code to do this. Tried a few ways but getting frustrated now with lack of success
-- modified at 7:07 Friday 9th September, 2005
Got it I think.
Use the TextChange or KeyUp event
|
|
|
|
|
I already told you how to do it and I even gave you the code, back on Sept. 5th. How about you post the code you're using and we'll show you how to fix that?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
No need as I found the code you gave me on the 5th September. I applied it to my code and its working.
Thanks for suggesting that I post my code to you to fix it but as stated, no problem now
Thanks again
|
|
|
|
|
I am creating a new VB.NET application where I have a base form that inherits from System.Windows.Forms.Form. Within that base form I have put a number of panels on the form, using docks or anchors for each to layout my sections. This base form has been copiled as part of a class library to be used in describing an application.
I have then created a VB.NET windows application project with a main form that inherits from my base form in the class library that I have created. The dll for this is referenced in my new windows application.
When I open my main form in the windows application I can see all the panels in the correct layout, these panels modifiers have been set to protected friend in the base form so I can add new controls to them in the main form.
Everything works well until I start to add controls to them or try to create event handlers for these panels. In the main form code window, I cannot see the panel objects in the list of objects with events, in order to select an event to use in the declaration drop down list. I can manually add an event handler in code. If I do either of these things, the designer decides to bugger up the layout of the inherited panels.
The only way I can reset them, is to change the inherits from in the main form to System.Windows.Forms.Form then back to the base form.
Everything looks OK again then in the designer and when I run the application, until I make any changes in the main form which in turns buggers up the layout of my inherited panels.
Are there any known issues in VB.NET with what I am trying to achieve, and advice would be appreciated.
Cheers
Jason
|
|
|
|
|
I wrote code which can tell you homepath of current user logged in to the machine.... I used certain key value pairs which work fine on XP, but gives error when I run this application on windows 2003.
I noticed that certain registry key pairs are different for different operating systems..
What should I do to get homepath of current logged in user
|
|
|
|
|
You're getting the user's home directory out of the Registry? If so, there's any easier, and more reliable way.
Open a CMD prompt and type SET. You'll find the UserProfile path in the Environment.
Use Environment.<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemEnvironmentClassGetEnvironmentVariableTopic.asp?frame=true" rel="nofollow">GetEnvironmentVariable()</a>[<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemEnvironmentClassGetEnvironmentVariableTopic.asp?frame=true" target="_blank" rel="nofollow" title="New Window">^</a>] to retrieve the user profile path.
Or, if that's not what you wanted, you can look into Environment.<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemEnvironmentClassGetFolderPathTopic.asp?frame=true" rel="nofollow">GetFolderPath</a>[<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemEnvironmentClassGetFolderPathTopic.asp?frame=true" target="_blank" rel="nofollow" title="New Window">^</a>] and the <a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfsystemenvironmentspecialfolderclasstopic.asp?frame=true" rel="nofollow">Environment.SpecialFolder</a>[<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfsystemenvironmentspecialfolderclasstopic.asp?frame=true" target="_blank" rel="nofollow" title="New Window">^</a>] enumeration.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
-- modified at 8:10 Friday 9th September, 2005
|
|
|
|
|
thats cool, I never knew you could do that - time to revise some old code I think 
/jason
|
|
|
|
|
Hi All,
I want to change the image of a Picture Object of crystal report during run time. i have tried to do this with the PicutreObject (GraphicalObject) of Crytsal report but it does not work as it does not support any property that deals with image.
Pls, if any knows help me.
-Ajay
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
