|
I own a small-potatoes business developing software.
I am working on a new WinForms product and need flexible reports with a min. budget.
I chose Crystal Reports because it came with VS .NET ("free").
I never used the product before (questionable decision), but figured I could learn it.
Anyway, my original grandiose plan required that reports:
1) Display data output from a stored procedure
2) Have fields disappear or drop-out from the report based on user's security level
3) Have dynamically built selection fields based on home-grown ad-hoc tool.
It appears that #2 and #3 are impossible, or, maybe can only be accomplished if I use all formula fields, and create a report with 1 field, another with 2 fields, another with 3 fields… etc. Then however many fields I want in my report, I choose the appropriate fields count report? – YUK.
I cannot even get #1 working!!
* When I create the report, it appears I need an SQL command (or procedure) to generate fields.
* I drag these fields onto the report.
* The user builds a where clause via a tool I created, and an SP is run with appropriate results.
* I assign the results to the report like this:
rpt.Load()
rpt.SetDataSource(ds)
… OR …
rpt.Database.Tables.Item(0).SetDataSource(ds)
rptViewer.ReportSource = rpt
* The data show is always whatever was returned from the query at DESIGN tim. The dataset assigned at run tim is ignored
* I did see suggestions ion the web stating to “Uncheck Save Data With Report on the file menu”. I cannot find this option.
ANY HELP?
Thanks,
-Len Miller
"If I had eight hours to chop down a tree, I'd spend six sharpening my axe."
-Abraham Lincoln
|
|
|
|
|
I only use Store Procedure to Edit data in SQL Server.
You should use Commang SQL to Crystal Report, with Command:
Public Function LayDuLieuDT(ByVal strSQL As String, ByVal table_name As String) As DataTable
Try
Dim oAdater As SqlClient.SqlDataAdapter
Dim oTable As New DataTable
Dim ds As New DataSet
oAdater = New SqlClient.SqlDataAdapter(strSQL, strConn)
oAdater.Fill(ds, table_name)
oTable = ds.Tables(table_name)
Return oTable
Catch
End Try
End Function
|
|
|
|
|
Hi, Thanks for trying to answer my questions, but I am not sure what you are saying here.
First, I DO use a stored procedure, and I want the dataet to be used at run time. This is my problem.
Second, you provide a function that returns a datatable. That is not needed for what my questions / issues are.
I have the problem where I specify OLEDB connection and a query at design time to specify my available fields. I drag these fields onto my report and save. Then at run time, I use the Crystal Reports Engine to specify the dataset (from my stored procedure results). But, the data always appears to be the result of the query specified at design time.
I Searched the web, and saw instructions to uncheck "Save Report With Data". on the File menu. This does not exist. I suspect this suggestion only applies to the full product, and not the Visual Studeio .NET version.
I had other issues too (Like how to dynamically make fields disappear based on app security priveledges, and whether a report can be built from scratc at run time, and whether Windows Authentication can be used / specified at RUN time) but this was my main problem.
Thanks,
-Len
Thanks,
-Len Miller
"If I had eight hours to chop down a tree, I'd spend six sharpening my axe."
-Abraham Lincoln
|
|
|
|
|
I have declared the following variables in the form transoverride.vb
Dim Account_Name, PolicyNumber, TransCodeOrig, TransEffDate, Override_Action, Override_New_Renewal, Override_Transaction_Code, ModifiedDate, ModifiedUID, Plan_Year As String
Dim RowNum As Integer
The goal of this question is that I want to pass the above variables to a dialog form called edittransoverride.
Public Sub DoModify()
Dim dTable As DataTable = Me.DataGrid1.DataSource
Dim bm As BindingManagerBase = Me.DataGrid1.BindingContext(Me.DataGrid1.DataSource, Me.DataGrid1.DataMember)
Dim dRow As DataRow = CType(bm.Current, DataRowView).Row
Me.lbNumRec.Text = Me.DsTransOverride1.Tables(0).Rows.Count.ToString()
Dim cEditTransOverride As New EditTransOverride
cEditTransOverride.ShowDialog()
cEditTransOverride.Dispose()
Me.SqlDataAdapter1.Update(Me.DsTransOverride1)
Me.DsTransOverride1.Tables(0).Clear()
Me.SqlDataAdapter1.Fill(Me.DsTransOverride1)
Me.DataGrid1.Refresh()
End Sub
In the subroutine that belogs to transoverride.vb I assign them values before passing to the dialog form.
Private Sub highLightRow(ByVal sender As Object, ByVal e As MouseEventArgs)
Dim pt = New Point(e.X, e.Y)
Dim grd As DataGrid = CType(sender, DataGrid)
Dim hit As DataGrid.HitTestInfo = grd.HitTest(pt)
If hit.Type = grd.HitTestType.Cell Then
grd.CurrentCell = New DataGridCell(hit.Row, hit.Column)
RowNum = hit.Row
grd.Select(RowNum)
Account_Name = Convert.ToString(grd.Item(RowNum, 0))
PolicyNumber = Convert.ToString(grd.Item(RowNum, 1))
TransCodeOrig = Convert.ToString(grd.Item(RowNum, 2))
TransEffDate = Convert.ToString(grd.Item(RowNum, 3))
Override_Action = Convert.ToString(grd.Item(RowNum, 4))
Override_New_Renewal = Convert.ToString(grd.Item(RowNum, 5))
Override_Transaction_Code = Convert.ToString(grd.Item(RowNum, 6))
ModifiedUID = Convert.ToString(grd.Item(RowNum, 7))
ModifiedDate = Convert.ToString(grd.Item(RowNum, 8))
Plan_Year = Convert.ToString(grd.Item(RowNum, 9))
End If
End Sub
Now I must get these values in the load of the edittransoverride.vb dialog form.
Private Sub EditForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Save old values
oldPolicyNumber = PolicyNumber
oldTransCode = TransCodeOrig
oldTransEffDate = TransEffDate
' Verify for Null fields
FillTextBox(txtAccountName, Account_Name)
FillTextBox(txtPolicyNumber, PolicyNumber)
FillTextBox(txtUserId, ModifiedUID)
dteEffDt.Text = TransEffDate.ToShortDateString()
dteEffDt.Value = TransEffDate.ToShortDateString()
FillTextBox(txtDate, ModifiedDate)
FillComboBox(cmbOriginalTransCode, TransCodeOrig)
FillComboBox(cmbOverrideAction, Override_Action)
FillComboBox(cmbOverrideNR, Override_New_Renewal)
FillComboBox(cmbOverrideTransactionCode, Override_Transaction_Code)
txtPlanYear.Text = Plan_Year
Me.lbRecNum.Text = RowNum
End Sub
How do I go about defining these variables so I can use them in my Load routine of the Dialog form.?
|
|
|
|
|
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
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
