|
Sir/Madam,
I am facing problem in understanding the component file.I downloaded a project named complete read only project from the following path.
http://www.codeproject.com/vb/net/CompleteReadOnlyComboBox.asp[^]
There is a file named CompletereadOnlyFile.vb.
1.I wanted to know which kind to file that is , I meant it is component file or vb file or what.
2.When I click on the design of the file and then I check for its properties , I get to see a control on the property box , named System.Windows.Form.ComboBox. Even there is no combo box control
3.When i write the code line into the code behind file of completereadonlyfile.vb , The code line is inherits System.Windows.Forms.ComboBox.
Then it shows the following error.
Base class System.Windows.Forms.ComboBox specified for class completereadonlycombobox cannot be different from the base class System.ComponentModel.Component of one of it's partial types
Please help.
Thanks and Regards
Pankaj
-- modified at 2:21 Friday 12th January, 2007
|
|
|
|
|
You're posting this in the wrong place. Go to the bottom of the article, you posted the link to it, and you'll find a forum specific to the article. Post your questions there and you'll probably get a reply from the person who wrote the article.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi There,
Would like some help on this....
How do I convert from a string to system.drawing.color
ie.. "color.blue" to color.blue
might seems simple to you, but at the momnet it eldues me.
|
|
|
|
|
You can do it two ways:
1.
Dim ColorVar as System.Drawing.Color = Color.Blue
MsgBox(ColorVar.ToString) Which will display Color[Blue]
2.
Dim ColorVar as System.Drawing.Color = Color.Blue
MsgBox(ColorVar.Name) Which will display Blue
Hope this helps!
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
This is what i am trying to do...
'Changes the Colour of the Form's BackGround Colour.
Dim RandomValue As Integer
Dim Upper, Lower As Integer
Dim NewColour As Color
Upper = ListBox1.Items.Count
Lower = 0
RandomValue = CInt(Int(Upper - Lower + 0) * Rnd() + Lower)
NewColour = ListBox1.Items(RandomValue)
Me.BackColor = NewColour
the listbox contains the following :-
color.red
color.blue
color.black
color.yellow
|
|
|
|
|
I think you might be better off using an If statement.
Trinity: Neo... nobody has ever done this before.
Neo: That's why it's going to work.
|
|
|
|
|
in what way....
this is the line where the problem is
NewColour = ListBox1.Items(RandomValue)
that is why i need to find out how to convert from a string "color.blue" to the system.drawing.color type color.blue
|
|
|
|
|
WestSideRailways wrote: NewColour = ListBox1.Items(RandomValue)
What is the type of the variable NewColour? The ListBox item stores strings, so you should use string comparisons in your if statements.
If NewColour="Color.Blue" System.Drawing.Color = Color.Blue
and similarly for all other colors
HTH
|
|
|
|
|
ChandraRam wrote: What is the type of the variable NewColour?
trying not to be too blunt, but if you look at the 2nd answer, you will find that i am NOT using "IF" statements.
And the variable "newcolour" is of type color.
|
|
|
|
|
WestSideRailways wrote: trying not to be too blunt
Same here...
If you look at my answer, you will see I have told you that a Listbox stores "strings"... and not variables of any other type. If you need to be able to set color based on a selection from a list box, change the type of NewColour to string and use the IF statements.
HTH
|
|
|
|
|
ok then, i took your answer another way....
Still does not answer my question thou...
I take it that it cannot be done.!!
|
|
|
|
|
does any one have a free twain software i could use in my project.. the one that i am using is vintasofttwain... and it is only the trial version.. so i can't save picture in jpeg or colored format.can anyone help, if it means suggesting a different twain i could use..
|
|
|
|
|
You can search the site, but I think the only free TWAIN library on here is C++. Atalasoft have a library for around $400 which looks good.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
VB.NET 2003
Say i have two forms frmA and frmB
Currently I am in form A and I want to open form B, However I do not know the name of form B. I am pulling the name of the form from a database.
The code to open the form normally would be: ( I know the name of the form here and declare it as so)
Dim frmtolaunch as new frmB ''Declare the form
frmtolaunch.show() ''Show the form
However I don't know the name and the code resembles the following (I do not know the name and wnat to declare it based on a variable name)
dim frmBName as string ''Variable to hold form B name
...Code here to get the form name from the database
...Store the name into frmBname
dim frmtolaunch as frmBName ''ERRORS occur here
frmtolaunch.show() ''Show the form
QUESTION: how can I declare the form based on the name I pull form the database. ----dim frmtolaunch as frmBName------
|
|
|
|
|
You could create a routine that will return you the object via a select case statement.
public function oGetForm(sName as string) as form
select case sName
case "frmBName"
return new frmBName
case .
.
.
end select
end function
--------------
dim oFrm as form = oGetForm(dsRow("FormName"))
|
|
|
|
|
I believe you could also use the reflection library where class name would be the form's name
Public Shared Function CreateInstance(ByVal sAssembly As String, ByVal sClass As String) As Object
Dim ao As [Assembly], aoName As New AssemblyName
Dim o As Object
Try
aoName.Name = sAssembly
ao = [Assembly].Load(aoName)
o = ao.CreateInstance(sAssembly & "." & sClass, True)
Catch ex As Exception
'ExceptionManager.PublishException(ex)
Throw ex
End Try
ao = Nothing
Return o
End Function
---------------------
dim oFrm as form = CreateInstance("myproject",dsRow("FormName"))
|
|
|
|
|
When you publish a project in VS2005 and then install the application to a PC that you need the application from the install opens the application and runs the program after the install is complete. Is there a setup option I can set to not have the application run after install?
Thanks for any insight anyone has...
Lost in the vast sea of .NET
|
|
|
|
|
Hi ..
Im having a slight margin problem when the print out copy is done.
for example.
note! - (| = left margin , 'a' = text)
"|a" in printpreview , the printout is "| a".
can anyone offer some advice on how to deal with this offset . i can tell you the e.margins.left is indented(to the right) on printout but GOOD IN PRINT PREVIEW and ALSO the e.margin.right margin is ok in print preview but not showing in print out.
I've got the e.margins drawing to see them in print preview and in printout
thanks in advance.
Robbo
-- modified at 19:43 Thursday 11th January, 2007
|
|
|
|
|
something to do with PrintDocument.OriginAtMargins?
|
|
|
|
|
Hi duncan.
Thanks for your tip. I actually tried using printdoc.originatmargins= true
but didnt notice any improvement. are you able to tell me if there's another
way of using this if there is one.
Kind Regards
Robbo
|
|
|
|
|
I think he as eluding to the fact that every printer as unprintable margins and that this is where the margins that you are talking about start at. For example:
Edge of paper
------------------------------------------------------+
(unprintable margin) |
----------------------------------------------------+ |
Top Margin 0.0" | |
| |
---document begins here with a margin of 0.5" | |
but is actually 0.75" from the top of the page | |
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi Dave
So i take it from you that its ok to see one thing in print preview and get something close on paper right ?... please clear this up for me.
also if this is the case is it ok for me to consider creating an xml file used to manipulate margins for different printers if need be.
i guess what i need to know is what is the proper standard for this type of thing.
many thanks Dave
Robbo
Robbo
|
|
|
|
|
It looks like your print preview code is making certain assumption about the page and not taking into account the margins. The one thing you haven't done is posted any code to show us how your seting up your printing.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
Hi Dave
Here is my code as you requested . Just to remind you print preview margins are great but printouts are not but only slightly off. i look forward to your comments to hopefully include some things to do.
CODE
====
RE: Imports System.Drawing.Printing
Public Class supreport
Private m_PagesPrinted As Integer
Private totalpages As Integer
' Display a print preview.
Private Sub btnPrintPreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintPreview.Click
' Make a PrintDocument and attach it to
' the PrintPreview dialog.
dlgPrintPreview.Document = PreparePrintDocument()
dlgPrintPreview.WindowState = FormWindowState.Maximized
dlgPrintPreview.PrintPreviewControl.Zoom = 1.0 'set zoom preview to %100
' Preview.
dlgPrintPreview.WindowState = FormWindowState.Maximized
dlgPrintPreview.ShowDialog()
End Sub
Private Function PreparePrintDocument() As PrintDocument
' Make the PrintDocument object.
Dim print_document As New PrintDocument
With PageSetupDialog1
.PageSettings = print_document.DefaultPageSettings
End With
If PageSetupDialog1.ShowDialog = Windows.Forms.DialogResult.Yes Then
print_document.DefaultPageSettings = PageSetupDialog1.PageSettings
End If
AddHandler print_document.BeginPrint, AddressOf Print_BeginPrint
AddHandler print_document.QueryPageSettings, AddressOf Print_QueryPageSettings
AddHandler print_document.PrintPage, AddressOf Print_PrintPage
AddHandler print_document.EndPrint, AddressOf Print_EndPrint
' Return the object.
Return print_document
End Function
' Get ready to print pages.
Private Sub Print_BeginPrint(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintEventArgs)
m_PagesPrinted = 0
getdata() 'load data to print/preview
End Sub
' Print the next page.
Private Sub Print_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
' Increment the page number.
m_PagesPrinted += 1
'**********RECTANGLES
Dim headingrect As New Rectangle(130, 100, 600, 800)
Dim DateRect As New Rectangle(e.MarginBounds.Left, 170, 100, 800)
Dim InvRect As New Rectangle(e.MarginBounds.Left + 130, 170, 130, 800)
Dim NameRect As New Rectangle(e.MarginBounds.Left + 281, 170, 100, 800)
Dim PDRect As New Rectangle(390, 170, 100, 800)
'*****************
'********FONTS
Dim headingfont As Font
headingfont = New Font("Times New Roman", 12, FontStyle.Underline, GraphicsUnit.Point)
Dim datafont As Font
datafont = New Font("Times New Roman", 10, FontStyle.Regular, GraphicsUnit.Point)
Dim subheadingsfont As Font
subheadingsfont = New Font("Time New Roman", 10, FontStyle.Regular, GraphicsUnit.Point)
'**************
'********STRING FORMATS
Dim headingstringformat As New StringFormat
headingstringformat.Alignment = StringAlignment.Center
Dim datastringformat As New StringFormat
datastringformat.Alignment = StringAlignment.Near
'********************
Dim reportheading As String = "Supplier Report As Of " & Today
Dim companyheading As String = "Company"
Dim addressheading As String = "Address"
Dim suburbheading As String = "Suburb"
Dim pcodeheading As String = "Postcode"
Dim ph1heading As String = "Phone 1"
Dim ph2heading As String = "Phone 2"
Dim contactheading As String = "Contact"
e.Graphics.DrawString(reportheading, headingfont, _
Brushes.Black, headingrect, headingstringformat) ' draw company heading details
e.Graphics.DrawString(ComData, datafont, Brushes.Black, DateRect, datastringformat)
e.Graphics.DrawString(AddressData, datafont, Brushes.Black, InvRect, datastringformat)
e.Graphics.DrawString(SubData, datafont, Brushes.Black, NameRect, datastringformat)
e.Graphics.DrawString(PcodeData, datafont, Brushes.Black, PDRect, datastringformat)
e.Graphics.DrawString(companyheading, subheadingsfont, Brushes.Black, e.MarginBounds.Left, 150)
e.Graphics.DrawString(addressheading, subheadingsfont, Brushes.Black, e.MarginBounds.Left + 130, 150)
e.Graphics.DrawString(suburbheading, subheadingsfont, Brushes.Black, 320, 150)
e.Graphics.DrawString(pcodeheading, subheadingsfont, Brushes.Black, 390, 150)
e.Graphics.DrawString(ph1heading, subheadingsfont, Brushes.Black, 480, 150)
e.Graphics.DrawString(ph2heading, subheadingsfont, Brushes.Black, 560, 150)
e.Graphics.DrawString(contactheading, subheadingsfont, Brushes.Black, 660, 150)
' Draw the margins (for debugging).
e.Graphics.DrawRectangle(Pens.SkyBlue, e.MarginBounds)
Dim the_font As Font
Dim string_format As New StringFormat
the_font = New Font("Times New Roman", _
8, FontStyle.Regular, GraphicsUnit.Point)
Dim getwidth As Int32 = e.PageBounds.Width
Dim getbottom As Int32 = e.MarginBounds.Bottom
getwidth = getwidth / 2
' MsgBox("getwidth " & getwidth)
e.Graphics.DrawString("( Page " & m_PagesPrinted.ToString & ")", _
the_font, Brushes.Black, getwidth, _
(120), _
string_format)
End Sub
End Class
|
|
|
|
|
Your code is based on the MarginBounds of the page, not the page bounds. It treating the top-left corner of the MarginBounds as the top-left corner of the page. Try using PageBounds instead of MarginBounds and see what happens.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
