|
I have never tried this, but IMO it should work: set the SizeMode to auto, put the PictureBox inside a Panel, and choose a top right Anchoring.
Of course, KISS adepts, myself included, recommend a simple Panel with a paint handler.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
Thank you guys for the confirmation about the code and the hint about using a panel.
After trying the approach of directly painting onto the panel I have to say that the approach has some major tradeoffs in my case, especially because my picturebox sits fully-docked in the upper part of a SplitPanel (vertical split), which doesn't have a separate paint event. As a consequence I'd have to use the paint event of the whole SplitPanel, which's PaintEventArgs obviously delivers a different e.graphics than the picture and results in funny effects. I didn't dive deeper into solving this, assuming your idea was meant to make my coding easier - so I made friends with the Picture Box  .
Sometimes it's funny: You just don't consider (and call) it "evil" and it behaves like a puppy 
|
|
|
|
|
Hi,
(.net 4, VS 2010 express)
I have a windows form with a DataGridView, a dataset, a timer, and a boolean variable (GUI thread).
I have a separate thread where I fill another dataset, created in that thread (data thread), when this thread has filled its own dataset I set the boolean to true.
At the timer tick event, in the GUI thread, I check the boolean. If it is true, I copy the data thread's dataset to the GUI thread's dataset (MyGUIThreadDataSet = MyDataThreadDataSet.Copy).
Then I attach the GUI thread's dataset to the DataGridView (DataGridView.DataSource = MyGUIThreadDataSet).
When I run the application, the line DataGridView.DataSource = MyGUIThreadDataSet causes a cross thread error.
What am I missing here?
Cheers,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi Johan,
did you already try the standard method using a delegate? It's commonly used to avoid cross-thread trouble... This is an untested example - just an idea:
Public Delegate Sub CopyDelegate(ByVal e As CopyEventArgs)
Public Sub UpdateGui(ByVal e As CopyEventArgs)
If InvokeRequired Then
Dim dlg As New CopyDelegate(AddressOf UpdateGui)
BeginInvoke(dlg, New Object() {e.arg1, e.arg2})
Else
' put everything to happen on the GUI here
DataGridView.DataSource = MyGUIThreadDataSet
End If
End SubHope it helps 
Michael
modified on Wednesday, May 26, 2010 12:18 PM
|
|
|
|
|
This is what is needed. The only thing I would note is that you need to make sure the number of parameters and the type of the parameters match.
BeginInvoke(dlg, New Object() {e.arg1, e.arg2})
won't work because CopyDelegate only takes one parameter and it's the same type as what UpdateGui takes (as it has to be). I believe it should just be
BeginInvoke(dlg, New Object() {e})
Also, you will want to specify which object the InvokeRequired is coming from...as in
If DataGridView1.InvokeRequired Then
...
DataGridView1.BeginInvoke(...)
|
|
|
|
|
Thank you guys both for your help.
Cheers,
Johan
My advice is free, and you may get what you paid for.
|
|
|
|
|
Below is a small macro wot I just wrote...
I want, at the click of a macro, to create a New Sheet, then to go the previous sheet (ie the one for the previous month) and pick up and copy the framework.
I do not want to pick this sheet up by name, for each month will have a different Carry Forward (CF) value.
So I want to pick up the CF from always the previous months sheet.
I tried Sheets(Sheet.Count(-1)).Select but it is throwing me out at this point.
Any ideas?
Sub NewMonth()
'
' NewMonth Macro
'
' Add sheet
Sheets.Add After:=Sheets(Sheets.Count)
' Copy previous month
Sheets(Sheet.Count(-1)).Select
Columns("A:J").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A1").Select
ActiveSheet.Paste
' Last months CF
Range("H40").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=+Sheets(Sheets.Count(-1)!R[2]C"
' Month Header
Range("E1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("E1").Select
Selection.Copy
Range("E1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
Sheets(Sheet.Count(-1)).Select must be
Sheets(SheetS.Count(-1)).Select
|
|
|
|
|
DOH!!!!!
Yes, obvious now!
I can't believe I missed that!
That one goes into the "Did I really do something that stupid? Ah, I see I did' Folder.
Thanks!
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
|
Sheets(Sheets.Count() - 1).Select
|
|
|
|
|
As my response above, missed something obvious, so that was two bleedin' obvious things in one damn line.
I am having a bad day!
Cheers.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
If that classifies as a 'bad day' i don't know what my 'bad day' should be renamed............
Anyway, you MUPPET! 
|
|
|
|
|
daveauld wrote: Anyway, you MUPPET!
Guilty as charged!
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
I want to binary serialize a class, which has only shared items (variables & objects of different types) which I use globally in my code.
When I want to serialize it, I get the error "'EmailAccount' is a type and cannot be used as an expression" :
binformatter.Serialize(filstream, EmailAccount)
I even tried to create an object from the class and serialize it. But it seems to only save the instance variables and not the shared ones.
Is there a way to serialize them?
|
|
|
|
|
Serialzation only works on instance members. Shared, or static in C#, members are not part of any instance. You'll have to either save them sepearately or there are various methods of including the static members in the serialization, but they will be included in every single instance of the class you serialize. One method would be to create public "wrapper" properties for the shared members.
|
|
|
|
|
hi mates,
how will I use Enter key instead of Space key to check the checkboxes in datagridview? Note: checkbox is inside the unbound datagridview.
thanks in advance
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
Personally, I'd find the different behavior confusing. But, you could change the checked state in a KeyPress event or similar.
CQ de W5ALT
Walt Fair, Jr., P. E.
Comport Computing
Specializing in Technical Engineering Software
|
|
|
|
|
my project only needs calculator keypad. thats why i only use specific key such as enter key. actually i have keypress event but checkbox value sometimes does not effect. heres my code snippet.
If e.KeyChar = Keys.Enter Then
If Me.C1grid.Col = 5 Then
Me.C1grid.Columns("IsOut").Value = CInt(Not CBool(Me.C1grid.Columns("IsOut").Value)) * -1
Me.C1grid.Columns("IsIn").Value = CInt(Not CBool(Me.C1grid.Columns("IsIn").Value)) * -1
End If
End If
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
Does that even compile?
Are you sure that Col = 5? How does your control know when Col = 5 has been selected? What row is being referred to?
Why are you changing the value of a column? A column has many cells, so which one should be changing? Or are you trying to change the value of all the cells?
To toggle a check box, you should do something like
C1grid.Item("IsOut", row_num).Value = Not C1grid.Item("IsOut", row_num).Value
for the cell you want to toggle.
CQ de W5ALT
Walt Fair, Jr., P. E.
Comport Computing
Specializing in Technical Engineering Software
|
|
|
|
|
Walt Fair, Jr. wrote: Are you sure that Col = 5?
yes this will work bcoz i have 10 columns but in colum 5 and 6 is checkbox.
Walt Fair, Jr. wrote: How does your control know when Col = 5 has been selected?
C1truedbgrid can handle columindex.
yes it will compile and working in C1 which i can get the colum index.in this application user doesn't have a mouse so only keypad.
this is the case, i have two colums in C1datagrid which is all checkbox.
for instance: by default all checkbox value are false.
so when user hit the enter key in column1, the checkbox value in column1 will return to true and automatically checkbox value in column2 will return to false and vice versa.
i have test this using normal key like spacebar/mouseclick and smoothly working in afterupdate event of c1truedbgrid but like i said if enter key doesnt work in afterupdate event so i use the keypress event which is you suggest at first.
example:
Private Sub C1grid_AfterColUpdate(ByVal sender As System.Object,ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs)Handles C1grid.AfterColUpdate
If e.ColIndex = 1 Then
'first checkbox
If CBool(Me.C1grid.Columns("NDFlag").Value) = True Then
'second checkbox
Me.C1grid.Columns("KMFlag").Value = False
Else
Me.C1grid.Columns("KMFlag").Value = True
End If
ElseIf e.ColIndex = 2 Then
'second checkbox
If CBool(Me.C1grid.Columns("KMFlag").Value) = True Then
'first checkbox
Me.C1grid.Columns("NDFlag").Value = False
Else
Me.C1grid.Columns("NDFlag").Value = True
End If
EndIf
End Sub
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
modified on Wednesday, May 26, 2010 12:51 AM
|
|
|
|
|
If e.ColIndex = 1 Then
Me.C1grid.Columns("KMFlag").Value = NOT CBool(Me.C1grid.Columns("NDFlag").Value)
ElseIf e.ColIndex = 2 Then
Me.C1grid.Columns("NDFlag").Value = NOT CBool(Me.C1grid.Columns("KMFlag").Value)
EndIf
is equivalent.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
your suggested code will only work in spacebar or mouse click. what if i will use ALT-key to trigger the checkbox value in a grid?
How will i do that? Help. i need this to work.
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
OK, then you'll need to trap the KeyDown event. The Enter key causes validation and a change in cell by default.
BTW, e.KeyChar = Keys.Enter gives a type error here.
CQ de W5ALT
Walt Fair, Jr., P. E.
Comport Computing
Specializing in Technical Engineering Software
|
|
|
|
|
The problem is I have two sides to my program one where general users can access my MSFlexGrids, three in total which are all stored and separate text files; and on the other side of the program I am updating the flexgrids which then save to files, which all works fine as shown below now what I’m looking to do now is to update one flexgrid such as my race one which contains details such as drivers name, team and positions for races such as 1st, 2nd, 3rd, then when this updates it also uses the positions to convert it into point values 10 and descending then have it write to other flexgrid/s for that particular driver now I no I need to use arrays I’m considering dynamic for expansion later on and I have been through it in my head and seems simple to explain but I’m having trouble even knowing where to start implementing this part so any help would be appreciated. If any more details are needed please ask. Thanks in advance.
Private Sub FillGridFromFile()
'code that reads from text file
Dim lRow As Long
Dim lCol As Long
Dim lFile As Long
Dim sFilepath As String
Dim sline As String
Dim vData As Variant
Dim strExist As String
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 0
strExist = Dir("Drivers.txt")
lFile = FreeFile
Open strExist For Input As #lFile
lRow = 0
Do While Not EOF(lFile)
Line Input #lFile, sline
If Not Len(Trim(sline)) = 0 Then
lRow = lRow + 1
vData = Split(sline, ",")
MSFlexGrid1.Rows = lRow
If (UBound(vData) + 1) > MSFlexGrid1.Cols Then
MSFlexGrid1.Cols = UBound(vData) + 1
End If
For lCol = 0 To UBound(vData)
MSFlexGrid1.TextMatrix(lRow - 1, lCol) = Trim(vData(lCol))
Next lCol
End If
Loop
Close #lFile
End Sub
Private Sub cmdUpDri_Click()
'code that write back to text file
Dim strExist As String
If MSFlexGrid1 = "" Then
MsgBox "One or More Cells Are Empty" & vbNewLine & "Please Ensure All Data Is Correct Before Saving!" & vbNewLine & "Please Set Default to Zero, If There is no Data to Enter", vbExclamation, "Empty Cells"
frmUpdate.SetFocus
Exit Sub
End If
Dim MyFreeFile As Integer
Dim reply As Integer
reply = MsgBox("Do you really wish to Update Drivers League?", vbYesNo + vbExclamation, "Confirm Update")
If reply = vbYes Then
MsgBox "Drivers League Update Completed Sucssefully!", vbInformation, "Update Complete"
Dim icol As Integer
Dim irow As Integer
Dim MyString As String
strExist = Dir("Drivers.txt")
MyFreeFile = FreeFile
Open strExist For Output As MyFreeFile
For irow = 0 To MSFlexGrid1.Rows - 1
For icol = 0 To MSFlexGrid1.Cols - 1
MyString = MyString & MSFlexGrid1.TextMatrix(irow, icol) & _
IIf((icol = MSFlexGrid1.Cols - 1), "", ",")
Next
Print #MyFreeFile, MyString
MyString = ""
Next
Close MyFreeFile
Else
If reply = vbNo Then
frmUpdate.SetFocus
End If
End If
End Sub
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
