|
I haven't looked at all that code, here are a few answers and comments:
1.
If TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr").InvokeRequired Then
your intentions are good, you are aware you can't just touch Controls from any thread other than the one that created them; but what about TabControl1.SelectedIndex and TabControl1.TabPages? Those parts of the statement are also touching Controls. That is were your problem is coming from.
The solution is rather easy: I assume the TabControl, its TabPages, and all their Controls all were generated by the same thread, hopefully the main thread (a.k.a. GUI thread). If so, it does not really care which of all those you use to check InvokeRequired on, so just do:
If TabControl1.InvokeRequired Then
2.
it may be simpler to encapsulate the calculations you want performed "on a tab" as you called it, inside their own class; a little class that holds its job parameters, holds some events, creates its Thread or BackgroundWorker, and launches them. Then create handlers for the tab, and wire them to the job class's events so it knows how to return results.
Doing it that way, the job classes don't have to know about TabControls and TabPages; they do the work without being aware of the GUI, all they know is initial parameters and a way to report back.
|
|
|
|
|
|
I am trying to write a user control that displays graphical squares on a drawn grid
I have the graphics side of it working fine but need to use a custom array to give me the data to plot the squares
here's my array
Public Structure SatChar
Public SatNr As Integer
Public SatAxim As String
Public SatElev As String
Public SNR As String
End Structure
Public Shared arrSatChars(0 To 35) As SatChar
how do i set this array into a property???
I have tried
Protected arrSatChars(0 To 35) As SatChar
Public Property Satellites(ByVal SatNr As Integer, ByVal SatAxim As String, ByVal SatElev As String, ByVal SNR As String) As SatChar()
Get
Return arrSatChars
End Get
Set(ByVal value As SatChar())
arrSatChars = value
Me.Refresh()
End Set
End Property
but this doesnt work
im still new to vb.net and any help would be much appreciated
thank youmodified on Wednesday, March 17, 2010 9:41 PM
|
|
|
|
|
Probably something more like this:
Private _arrSetChars() As SatChar
Public Property Satellites(ByVal index As Integer) As SatChar
Get
Return _arrSatChars(index)
End Get
Set(ByVal value As SatChar)
_arrSatChars(index) = value
End Set
End Property
Note: There is no bounds checking in this code. This is just a small framework upon which to build.
|
|
|
|
|
Thanks Dave
I tried your suggestion and am calling it with
For i = 1 To _arrSatChars.Count - 1
Satellite1.Satellites(i) = _arrSatChars(i)
Next
now i get a Object reference not set to an instance of an object. error on _arrSatChars(index) = value
thanks for your help
|
|
|
|
|
You don't have any code that actually creates an array. All you have is a definition that holds an array.
|
|
|
|
|
I am working on a pocket pc application by using vb.net 2005. I create one table called products and want to store the costprice in decimal in products table.
E.g:- if I enter 50.5 for costprice and save it then it automatically changes to 51 which is creating problem for calculation.
How I can store decimal value in the table?
Anybody knows how I can solve this?
Thanks in advance
|
|
|
|
|
ejaz_pk wrote: How I can store decimal value in the table?
what table? a DataTable? a table in a database, if so which database?
Google[^]'s first hit is MSDN[^].
|
|
|
|
|
You may also want to post the code that stores the value. There is no automatic rounding or conversion unless the data types are incorrect.
|
|
|
|
|
Try setting the field type to be a DECIMAL.
(If poss in whatever DB you are using.)------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
How are you passing the values to the Db ? if you are storing in some variable/Property then passing to the db then check the Data Type of the Variable/Property.
Try to use Quick Watch, if its going ok from Front end then check the Datatype of your Back end(Db). That the field data type is Decimal (18,0), if so then make its Scale to a value greater then 0 i.e; decimal(18, 8)SOFTDEV
If you have knowledge, let others light their candles at it. [ Let's work to help developers, not make them feel stupid ]
|
|
|
|
|
Thanks for the help. As I mentioned that I am using .sdf (sqlserverce) database which used for pocket pc applications. Actually there was problem in the table structure of my database. I was using int type of field in the table. Now I have change that field type to float and its working fine.
Thanks every body
|
|
|
|
|
does anyone have any sample on how to read a comma delimited file.
|
|
|
|
|
Generally you would open a file handle to the file, read a line in, then process the line, reading up to the first comma, processing that part, reading up to the next comma, processing that part... until you reach the end of the line. After this, read the next line and repeat... Stop when you reach the end of the file.
|
|
|
|
|
This may help:
Reading comma delimited files[^]I don't speak Idiot - please talk slowly and clearly
'This space for rent'
Driven to the arms of Heineken by the wife
|
|
|
|
|
reading the files in a data set is interesting but using a dataset how would I transfer the data to a string array possible a two dimensional array.
|
|
|
|
|
Does this give you the idea?
Dim arr(ds.MyTable.Rows.Count-1, 1) As String
Dim count as Integer = 0
For Each dr as DataRow in ds.MyTable
arr(count,0) = dr("ID").ToString
arr(count,1) = dr("Name").ToString
count += 1
Next
' do something with the arrayI don't speak Idiot - please talk slowly and clearly
'This space for rent'
Driven to the arms of Heineken by the wife
|
|
|
|
|
You might also look here:
TextFieldParser[^]I don't speak Idiot - please talk slowly and clearly
'This space for rent'
Driven to the arms of Heineken by the wife
|
|
|
|
|
|
I have a application that has a tab control and I create additional tabs dynamically as desired from a template stored in a class. On each Dynamically created tab I have functional buttons and everything works properly. One of the buttons takes the value of one of the dynamically created textboxes and submits it to a function and then the return data is displayed in another dynamically created textbox on the same tab. While this works fine I can only seem to access the the value(Get\Set) of the Textbox via a cast and not sure if this is the best way to achieve this. Is there a Better way???
This is the question code can be found in code below near bottom.
CType(TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr"), TextBox).Text = "some new text"
----Code---
Public Class CreateTab
Public Function ReadTab(ByRef tpRead As TabPage, ByVal dgCurrentRow As DataGridViewRow)
.
.dynamicaaly created code is here
.
'btnMax
'
btnMax.Location = New System.Drawing.Point(285, 6)
btnMax.Name = "btnMax"
btnMax.Size = New System.Drawing.Size(109, 23)
btnMax.TabIndex = 15
btnMax.Text = "Match to Maximizer"
btnMax.UseVisualStyleBackColor = True
AddHandler btnMax.Click, AddressOf Form1.btnMax_Click
.
.
.
End function
End Class
Private Sub dgInbox_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgInbox.CellDoubleClick
Dim iIndex As Integer
If TabControl1.TabPages.ContainsKey(dgInbox.CurrentRow.Cells(0).Value.ToString()) = False Then
TabControl1.TabPages.Add(dgInbox.CurrentRow.Cells(0).Value.ToString(), Mid(dgInbox.CurrentRow.Cells(2).Value.ToString(), 1, 25))
Me.tpRead.SuspendLayout()
'Call Create tab in above class
CreateTab.ReadTab(TabControl1.TabPages.Item(TabControl1.TabPages.Count - 1), dgInbox.CurrentRow)
Me.tpRead.ResumeLayout(False) Me.tpRead.PerformLayout()
TabControl1.SelectTab(TabControl1.TabPages.Count - 1) 'set to currently displayed tab
Else
iIndex = TabControl1.TabPages.IndexOfKey(dgInbox.CurrentRow.Cells(0).Value.ToString())
TabControl1.SelectTab(iIndex) ' tab already was created display it
End If
End Sub
-------------
Public Sub btnMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMax.Click
Dim EmailAddr As String
Dim AccountInfo As String
EmailAddr = TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtRdFrom").Text
MaxConn.LinkToAccount(EmailAddr, AccountInfo)
'---Code Question Below--- :confused:
CType(TabControl1.TabPages(TabControl1.SelectedIndex).Controls("txtMaxAddr"), TextBox).Text = AccountInfo
End SubThanks in advance...
dotnetme2
|
|
|
|
|
I expect it works well without the cast, since Controls[] returns a Control, and every Control has a Text property. What happens when you try without CType(..., TextBox)? Does it compile? What error or exception are you getting?
|
|
|
|
|
I must have been typeing something wrong, because I swore the other day I was getting an error readonly or property error... But as you stated it worked fine...  Because I get the value the way you suggest as well, I don't know why it didn't prior...
Sorry to waste your time... 
this leads me to my next question which is a bit more complicated and up your ally... but still reading...
thanks...dotnetme2
|
|
|
|
|
No problem.
|
|
|
|
|
I am using MS Graph Chart (MSGraph.Chart8) in an Access2007 form to represent a work schedule.
My vertical axis contains the days of the schedule (Day 1, Day 2,...) and along the horizontal are the hours of the day (00 to 24) - 24 hr segments.
If a shift starts in Day 1 at 10pm (22:00) and goes for 8 hours, it will extend into Day 2.
My question: do you know how to change the color of individual data series (bar)?
For hours that roll-over into the next day, I want to distinguish with a different color than the rest of the bars (data series) which are all same color.
Bigger question: i want to control more properties of the MS Graph Chart object so I can resize/scale my vertical axis to accomodate several labels (Days).
Thank you.
John
|
|
|
|
|
I have a problem . I have to draw a circle at a particular distance say 50 meters from a given lat/log.I refered to Aviation formula's and find a formula to calculate lat/log at a distance and
at a bearing which is as follows:-
A point {lat,lon} is a distance d out on the tc radial from point 1 if:
lat=asin(sin(lat1)*cos(d)+cos(lat1)*sin(d)*cos
(tc))
IF (cos(lat)=0)
lon=lon1 // endpoint a pole
ELSE
lon=mod(lon1-asin(sin(tc)*sin(d)/cos
(lat))+pi,2*pi)-pi
ENDIF
This algorithm is limited to distances such that dlon <pi/2, i.e those that extend around less
than one quarter of the circumference of the earth in longitude. A completely general, but more complicated algorithm is necessary if greater distances are allowed:
lat =asin(sin(lat1)*cos(d)+cos(lat1)*sin(d)*cos(tc))
dlon=atan2(sin(tc)*sin(d)*cos(lat1),cos(d)-sin
(lat1)*sin(lat))
lon=mod( lon1-dlon +pi,2*pi )-pi
for this i have written this coding:-
Private Sub cmdNextPoint_Click()
Dim lat2 As Double, lon2 As Double, theta As Double, d As Double,Aasin As Double,Aatan2 As Double
Pi = 3.14159265358979
d = 50
theta = 90 * 0.0174532925
txtLatitude.Text = 22.51791
txtLongitude.Text = 87.46598
Aasin = Sin(Val(txtLatitude.Text)) * Cos(d) + Cos(Val(txtLatitude.Text)) * Sin(d) * Cos(theta)
lat2 = atan2(Aasin, Sqr(1 - Aasin * Aasin))
Aatan2 = Sin(theta) * Sin(d) * Cos(Val(txtLatitude.Text))
Batan2 = Cos(d) - Sin(Val(txtLatitude.Text)) * Sin(lat2)
lon2 = ((Val(txtLongitude.Text) - atan2(Aatan2, Batan2) + Pi) Mod (2 * Pi)) - Pi
txtLatitude2.Text = lat2
txtLongitude2.Text = lon2
End Sub
Public Function atan2(ByVal y As Double, ByVal x As Double) As Double
If y > 0 Then
If x >= y Then
atan2 = Atn(y / x)
ElseIf x <= -y Then
atan2 = Atn(y / x) + Pi
Else
atan2 = Pi / 2 - Atn(x / y)
End If
Else
If x >= -y Then
atan2 = Atn(y / x)
ElseIf x <= y Then
atan2 = Atn(y / x) - Pi
Else
atan2 = -Atn(x / y) - Pi / 2
End If
End If
End Function
in this i m finding a point which is at a distance of 50 meters from the latitude 22.51791 and longitude 87.46598 and at a bearing of 90 degrees.Somebody told me that to draw a circle i have to find out 360 points then by using the DrawPolygon method the circle can be drawn.So firstly i m finding one point.It is not giving me the desired result that should be latitude = 22.51841 and longitude = 87.46598.Can anybody help me .Just tell me where i m wrong.I m using the mapwingis activex control to display the map.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
If there is any suggestions as far as reading, examples, or what to Search for to work towards achieving this would be greatly appreciated! I use Classes alot but this sounds more advanced. Actually I have the code that does the work I what in a seperate thread, I already have in a class it's just adding the rest of it to that class or creating another one.
