|
How To Stretch Picture Box Manually at Run Time in VB.Net. its Urgent.
|
|
|
|
|
I'd like to use 2 comboboxes in my application that views Crystal Reports. My report is a inventory of available material at different warehouse locations. The report needs 2 parameters (from location) and (to location). Essentially I can query inventory from a location (from New York to New York).
My combo boxes alone work fine with the Crystal report viewer but when used together only the second combo box works (to location). As a result I'm promted to add the value for the (to location) a second time.
I want the have my program pass both of the "to" and "from" information from the combo boxes directly into the Crystal report viewer.
Here's the code that I have thus far.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Dim myParameterFields As New ParameterFields<br />
Dim myParameterField As New ParameterField<br />
Dim myDiscreteValue As New ParameterDiscreteValue<br />
<br />
myParameterField.ParameterFieldName = "location_from"<br />
myDiscreteValue.Value = ComboBox1.Text<br />
myParameterField.CurrentValues.Add(myDiscreteValue)<br />
<br />
myParameterField.ParameterFieldName = "location_to"<br />
myDiscreteValue.Value = ComboBox2.Text<br />
myParameterField.CurrentValues.Add(myDiscreteValue)<br />
<br />
myParameterFields.Add(myParameterField)<br />
<br />
CrystalReportViewer1.ParameterFieldInfo = myParameterFields<br />
<br />
CrystalReportViewer1.ReportSource = New Lager_best_XL<br />
CrystalReportViewer1.Refresh()<br />
<br />
<br />
End Sub
|
|
|
|
|
i didn't check it coz i didn't have dotnet Installed currently. but i think it will slove ur problem
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myParameterFields As New ParameterFields
Dim myParameterField As New ParameterField
Dim myDiscreteValue As New ParameterDiscreteValue
myParameterField.ParameterFieldName = "location_from"
myDiscreteValue.Value = ComboBox1.Text
myParameterField.CurrentValues.Add(myDiscreteValue)
myParameterFields.Add(myParameterField) // Add This line of Code
myParameterField.ParameterFieldName = "location_to"
myDiscreteValue.Value = ComboBox2.Text
myParameterField.CurrentValues.Add(myDiscreteValue)
myParameterFields.Add(myParameterField)
CrystalReportViewer1.ParameterFieldInfo = myParameterFields
CrystalReportViewer1.ReportSource = New Lager_best_XL
CrystalReportViewer1.Refresh()
End Sub
|
|
|
|
|
Thanks I tried out your suggestion of adding in the extra line of code (myParameterFields.Add(myParameterField) after the first combo box definition but the same problem still persists. No debugging problems were created with the new line of code.
|
|
|
|
|
It May Not seem a good awnser but its the best i can give without testing.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myParameterFields As New ParameterFields
Dim myParameterField As New ParameterField
Dim myParameterField1 As New ParameterField
// the value for location_from is seem to be replaced by location_to and it can
//be tested by saving there values into two different objects.
Dim myDiscreteValue As New ParameterDiscreteValue
Dim myDiscreteValue1 As New ParameterDiscreteValue
myParameterField.ParameterFieldName = "location_from"
myDiscreteValue.Value = ComboBox1.Text
myParameterField.CurrentValues.Add(myDiscreteValue)
myParameterFields.Add(myParameterField) // Add This line of Code
myParameterField1.ParameterFieldName = "location_to"
myDiscreteValue1.Value = ComboBox2.Text
myParameterField1.CurrentValues.Add(myDiscreteValue1)
myParameterFields.Add(myParameterField1)
CrystalReportViewer1.ParameterFieldInfo = myParameterFields
// also its has been a while since i did it but i remember there is a way to pass
//the string to CrystalReportViewer or New Lager_best_XL directly like this
//New Lager_best_XL.METHODNAME="Location_from>='' and Location_to = <=" //etc...
//or
//CrystalReportViewer.METHODNAME="Location_from>='' and Location_to = <=" //etc...
//i don't remember the method name coz it has been a while but at that time i used it
//to get a report inbetween two dates.
CrystalReportViewer1.ReportSource = New Lager_best_XL
CrystalReportViewer1.Refresh()
End Sub
|
|
|
|
|
I tried your suggestion of sending the outputs from the combo boxes to different objects. I inserted a second crystal report viewer and a second button. I have the (location from) combo box sent to the new report viewer. The (location to) combo box still uses the original report viewer.
As predicted when running the using the original report viewer I'm prompted for the for (location from) information. Likewise when I use the new report viewer I'm prompted for (location to) information.
The combo boxes are both doing their jobs it's just that the last passed value is taken or the first value is over witten from the second either way same result.
|
|
|
|
|
well i didn't say u use two different report viewer i said u use two different myParameterField Object Then Add Them To myParameterFields The Code Will Look Like This
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myParameterFields As New ParameterFields
Dim myParameterField As New ParameterField
Dim myParameterField1 As New ParameterField
Dim myDiscreteValue As New ParameterDiscreteValue
Dim myDiscreteValue1 As New ParameterDiscreteValue
myParameterField.ParameterFieldName = "location_from"
myDiscreteValue.Value = ComboBox1.Text
myParameterField.CurrentValues.Add(myDiscreteValue)
myParameterFields.Add(myParameterField)
myParameterField1.ParameterFieldName = "location_to"
myDiscreteValue1.Value = ComboBox2.Text
myParameterField1.CurrentValues.Add(myDiscreteValue1)
myParameterFields.Add(myParameterField1)
CrystalReportViewer1.ParameterFieldInfo = myParameterFields
CrystalReportViewer1.ReportSource = New Lager_best_XL
CrystalReportViewer1.Refresh()
End Sub
Hope Fully It Will Work
|
|
|
|
|
Here's a copy of what I added:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Dim myParameterFields As New ParameterFields<br />
Dim myParameterField As New ParameterField<br />
Dim myParameterField1 As New ParameterField<br />
<br />
Dim myDiscreteValue As New ParameterDiscreteValue<br />
Dim myDiscreteValue1 As New ParameterDiscreteValue<br />
<br />
myParameterField.ParameterFieldName = "Lagerort_von"<br />
myDiscreteValue.Value = ComboBox1.Text<br />
myParameterField.CurrentValues.Add(myDiscreteValue)<br />
<br />
myParameterFields.Add(myParameterField)<br />
<br />
myParameterField.ParameterFieldName = "Lagerort_bis"<br />
myDiscreteValue.Value = ComboBox2.Text<br />
myParameterField1.CurrentValues.Add(myDiscreteValue1)<br />
<br />
myParameterFields.Add(myParameterField1)<br />
<br />
CrystalReportViewer1.ParameterFieldInfo = myParameterFields<br />
CrystalReportViewer1.ReportSource = New Lager_best_XL<br />
CrystalReportViewer1.Refresh()<br />
<br />
<br />
End Sub
|
|
|
|
|
|
If your printing raw text, then you'll have to consult with the printers manual and send the appropriate ESC codes to the printer, just like you do text, to get it to change the font, bold, italics, size, ...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
hi
i wish to add a value to date
example
1/1/2005 add 4 days ahead
so the date will be 5/1/2005
may i know how to do this by code?
i try this way
dim a as date
a= today +4
but there is an error here state that + cannot be done by date n integer
may i know how to add it to date?
thank you in advance
Gary
|
|
|
|
|
You can add DateTime and TimeSpan:
<br />
DateTime nowPlusFourHours = DateTime.Now + new TimeSpan(4, 0, 0, 0)<br />
You can also substract one DateTime from another one and get a TimeSpan back.
|
|
|
|
|
hi robert
i dont understand......
DateTime?
i try typing it
it say here
DateTime is a type and cannot be used as an expression
so i try this way
Dim a As Date<br />
a = DateTime.Now + New TimeSpan(4, 0, 0, 0)
but ending up it say
operator "+" is not define for "Date" and "TimeSpan"
can please explain in more detail?
im using vb.net
thanks
Gary
|
|
|
|
|
You are right, sorry. Sometimes I mix up C# and VB.Net 
You should use:
<br />
Dim a As Date<br />
a = DateTime.Now.Add(New TimeSpan(4, 0, 0, 0))<br />
|
|
|
|
|
There is also
DateTime.Now.AddDays(4)
|
|
|
|
|
How does one retreive the directory path of a specific file chosen once you click on ok button on an openfiledialog? e.g. C:\test\data\textfile.txt
Thanks
|
|
|
|
|
Not sure what you mean. With the properties FileName and FileNames you can get the complete path from the OpenFileDialog - including the filename itself. If you only want the directory you can use System.IO.Path.GetDirectoryName function to remove the filename from a complete filepath.
|
|
|
|
|
Thanks the filenames works.
|
|
|
|
|
Hello,
I'm new on this page and on VB.Net and want's to create an simple control. But for this I need a property with DataType is collection. In the collection I want to have an object with two properties ('Prop' and 'Value'). I have defined this property, but VB.Net doesn't save my edits in the built in CollectionEditor.
At the Control I have inserted the following code:
<System.ComponentModel.DesignerSerializationVisibility(System.ComponentModel.DesignerSerializationVisibility.Content)> _<br />
Public ReadOnly Property CustomProperties() As CustomPropertyCollection<br />
Get<br />
Return mvcolCustomPropertyCollection<br />
End Get<br />
End Property<br />
The definition of the CustomPropertyCollection and the object in the collection is:
Friend Class CustomPropertyConverter<br />
' Ohne den Konverter kann man nicht speichern<br />
Inherits System.ComponentModel.TypeConverter<br />
<br />
Public Overloads Overrides Function CanConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal destType As Type) As Boolean<br />
If destType Is GetType(System.ComponentModel.Design.Serialization.InstanceDescriptor) Then<br />
Return True<br />
End If<br />
<br />
Return MyBase.CanConvertTo(context, destType)<br />
End Function<br />
<br />
Public Overloads Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destType As Type) As Object<br />
If destType Is GetType(System.ComponentModel.Design.Serialization.InstanceDescriptor) Then<br />
Dim cat As CustomProperty = DirectCast(value, CustomProperty)<br />
<br />
Dim ci As System.Reflection.ConstructorInfo = GetType(CustomProperty).GetConstructor(System.Type.EmptyTypes)<br />
<br />
Return New System.ComponentModel.Design.Serialization.InstanceDescriptor(ci, Nothing, False)<br />
End If<br />
<br />
Return MyBase.ConvertTo(context, culture, value, destType)<br />
End Function<br />
End Class<br />
<br />
<System.ComponentModel.TypeConverter(GetType(CustomPropertyConverter))> _<br />
Public Class CustomProperty<br />
Dim mvstrProperty As String<br />
Dim mvstrValue As String<br />
<br />
Public Property Prop() As String<br />
Get<br />
Prop = mvstrProperty<br />
End Get<br />
Set(ByVal pvstrProp As String)<br />
mvstrProperty = pvstrProp<br />
End Set<br />
End Property<br />
<br />
Public Property Value() As String<br />
Get<br />
Value = mvstrValue<br />
End Get<br />
Set(ByVal pvstrValue As String)<br />
mvstrValue = pvstrValue<br />
End Set<br />
End Property<br />
End Class<br />
<br />
Public Class CustomPropertyCollection<br />
Inherits CollectionBase<br />
<br />
'Needed to implement the strongly-typed collection<br />
Default Public Property Item(ByVal Index As Integer) As CustomProperty<br />
Get<br />
Return DirectCast(List.Item(Index), CustomProperty)<br />
End Get<br />
Set(ByVal Value As CustomProperty)<br />
List.Item(Index) = Value<br />
End Set<br />
End Property<br />
<br />
Public Function Add(ByVal Item As CustomProperty) As Integer<br />
Return List.Add(Item)<br />
End Function<br />
<br />
Public Sub Insert(ByVal index As Integer, ByVal Item As CustomProperty)<br />
If List.Contains(Item) Then<br />
Throw New InvalidOperationException("Already in list.")<br />
End If<br />
<br />
List.Insert(index, Item)<br />
End Sub<br />
<br />
Public Function Contains(ByVal value As CustomProperty) As Boolean<br />
Return List.Contains(value)<br />
End Function<br />
<br />
'Redraw the control<br />
Protected Overrides Sub OnClearComplete()<br />
MyBase.OnClearComplete()<br />
End Sub<br />
<br />
'Redraw the control and wire up button's redrawneeded event<br />
Protected Overrides Sub OnInsertComplete(ByVal index As Integer, ByVal value As Object)<br />
MyBase.OnInsertComplete(index, value)<br />
End Sub<br />
<br />
'Redraw the control<br />
Protected Overrides Sub OnRemoveComplete(ByVal index As Integer, ByVal value As Object)<br />
MyBase.OnRemoveComplete(index, value)<br />
End Sub<br />
End Class<br />
The Part with the Converter I have seen in a sample for this page (outlookbartest). I don't know if I need it...
Please help me...
Vocaris
|
|
|
|
|
I have a datagrid with 6 columns. column 6 is the balance column and column 4 is the amount payed.I need column4 row1 to subtract from column6 row1 and show in row2 column6.then I need column4 row2 to subtract from column6 row2 and show in column6 row3. I need this to loop or something.
any suggestions?
|
|
|
|
|
Not sure if that is what you need but sounds like:
for index=1 to datagrid.count-1
datagrid.rows(index).item("Column6")=datagrid.rows(index-1).item("Column6")-datagrid.rows(index).item("Column4")
next index
Briga
|
|
|
|
|
ummm... I dont understand why count is underlined as wrong and datagrid.rows is wrong??
any suggestions?
thanx
|
|
|
|
|
Well I replied quickly and typed the code just to give you the idea.
The error you get is because the count and rows should refer the realdatabase you have behing the datagrid (dataset or dataview or whatever). Since I don't know the architecure of your application I don't konw how to address it but you can easily transpose the following code:
Let's suppose you have a dataset called d1 with a table t1 with two columns: c1 & c2. Where c2 is the progressive total as you want.
You can create a sub passing the table, the index of the value column and the index of the progressive total column as follows:
private sub RecalcProgressive(dt as datatable,i1 as integer,i2 as integer)
dim index as integer
'
if dt.rows.count=0 then exit sub ' If no records then exit
dt.rows(0).item(i2)=dt.rows(0).item(i1) ' First line only progressive=value
if dt.rows.count=1 then exit sub ' If only one line then it's done
for index=1 to dt.rows.count-1 ' For each line in the DB
dt.rows(index).item(i2)=dt.rows(index).item(i1)+dt.rows(index-1).item(i2) ' Calc
next index
end sub
Then, according to the hypothesis before, you can call it:
public sub Main
<...>
RecalcProgressive(d1.t1,1,2)
<...>
end sub
Bye
Briga
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
