|
TomGarth wrote: If they are, then each has a reference to the other in My.Forms.
I never use it and never will. It's just too VB6'ish to me. I'd rather they did it the correct way then work around it and learn a bad habit they can't transfer to another language.
|
|
|
|
|
Maybe I don't understand what you're saying.
Manipulating forms from other forms in a single application is perfectly normal, and not a bad habit. If you have 2 forms in your application and 1 is open, how much code do you write to open the other one?
Tom Garth
Developer
R. L. Nelson and Associates, Inc., Virginia
|
|
|
|
|
It's not having one form open another that's the problem. It's having one form manipulate the controls of another that violates the rules of encapsulation.
|
|
|
|
|
You say Bad Habit, I say RAD!!!
...and VB6 rocks, and so did VB5, 4, 3, etc.
Tom Garth
Developer
R. L. Nelson and Associates, Inc., Virginia
|
|
|
|
|
TomGarth wrote: You say Bad Habit, I say RAD!!!
I say unsupportable...
|
|
|
|
|
TomGarth wrote: VB6 rocks, and so did VB5, 4, 3
Oh, I soooo hope you are being sarcastic.
_____________________________________________
Flea Market! It's just like...it's just like...A MINI-MALL!
|
|
|
|
|
I hope he is being sarcastic. Needs to put the [sarcasm] ... [/sarcasm[ tags around it, if he is.
"Any sort of work in VB6 is bound to provide several WTF moments." - Christian Graus
|
|
|
|
|
TomGarth wrote: ...and VB6 rocks, and so did VB5, 4, 3, etc.
I sure hope your high on something. It's the only explanation for a statement like that.
|
|
|
|
|
just for my education...
in your shared method or method within a class idea...
if the click routine only contains data/controls that are within formA. is a delegate the answer or do you have another technique?
|
|
|
|
|
If I read this correctly... If the click handler only does some kind of setup for the form itself, then yes, I'd use a delegate to make the call.
But, I've never sen the need to have a child dialog, or any other form, tell another form how to set itself up. I've always used a shared state object and/or events fired by the data model to tell the subscribers that they might want to adapt to a change in the data.
|
|
|
|
|
the only situation I can think of is when formB is a modal form and it's answer will dictate what formA will do...
dim oFrm as formB
If oFrm.showdialog() = DialogResult.OK Then
'change the state of formA
.
.
.
if they are independent of each other then I would agree...
|
|
|
|
|
nlarson11 wrote: when formB is a modal form and it's answer will dictate what formA will do...
Then FormB exposes it's status as properties. FormA then decides what it's going to do with that data and alters its own user interface accordingly. FormB should never know anything about the form that launched it.
|
|
|
|
|
I think we missed/missing each other's points.
if i'm in formA and I create and instance of formB, I have 2 options of displaying formB... SHOW and SHOWDIALOG if i use SHOW then you are correct, formB shouldn't need to know anything about A but if it does, use a delegate. if I use SHOWDIALOG that A is waiting for B to respond with the user's choice of pressing OK or Cancel or whatever choices remain in the enum dialogresult. So B will return the answer and A reacts accordingly. No different then an OK/Cancel messagebox. I personally have no issue with A reacting to B in this situation...
|
|
|
|
|
Whoops! Sorry, I misread your previous post. We're both on the same page!
|
|
|
|
|
good. i normally agree with you 100% 
|
|
|
|
|
Hi,
this is a way that you can use if you are calling formB from formA, if not you can use the Sub Main to keep active forms references.
In FormB
Private m_f As FormA
Public Sub New(f as FormA)
m_f = f
MyBase.New
End Sub
...
Call m_f.TheMethod
In FormA
...ButtonX.Click
Call TheMethod
End Sub
Public Sub TheMethod
...
End Sub
...
dim f as New FromB(Me)
f.Show
Hope this helps!
NajiCo http://www.InsideVB.NET[^]
It's nice 2b important, but it's more important 2b nice...
|
|
|
|
|
Is there any way to run the application developed in VB.net 2005 on Linux or Mac OS . I have heard that there are some wrapper applications which make it possible. Any one who has done this or tried for this ?
Regards
|
|
|
|
|
|
The only way to run an application developed on Windows under Linux is to run it under a Windows emulator, such as Wine[^].
|
|
|
|
|
Hello There
My application is running in an environment where security policy does not allow the application to create folder on d drive. but my Application does have the Administrator UserName and Password. I want to create folder using Admin Credentials or you can say my application should run with Admin Rights no matter what ever the rights are for the logged on user.
Any helpful code or any Arcticle link would be highly appreciated.
Regards
|
|
|
|
|
Imports System
Imports System.Runtime.InteropServices
Imports System.Security.Principal
Imports System.Security.Permissions
<Assembly:SecurityPermissionAttribute(SecurityAction.RequestMinimum,
UnmanagedCode := true)>
Public Class Impersonation
<DllImport("C:\\WINNT\\System32\\advapi32.dll")> _
Public Shared Function LogonUser(lpszUsername As String, lpszDomain As
String, lpszPassword As String, _
dwLogonType As Integer, dwLogonProvider As Integer, ByRef
phToken As Integer) As Boolean
End Function
<DllImport("C:\\WINNT\\System32\\Kernel32.dll")> _
Public Shared Function GetLastError() As Integer
End Function
Public Shared Sub Main(args() As String)
'The Windows NT user token.
Dim token1 As Integer
'Get the user token for the specified user, machine, and password
using the unmanaged LogonUser method.
'The parameters for LogonUser are the user name, computer name,
password,
'Logon type (LOGON32_LOGON_NETWORK_CLEARTEXT), Logon provider
(LOGON32_PROVIDER_DEFAULT),
'and user token.
Dim loggedOn As Boolean = LogonUser("bob", "AARDVARK", "coffee", 3, 0,
token1)
Console.WriteLine("LogonUser called")
'Call GetLastError to try to determine why logon failed if it did not
succeed.
Dim ret As Integer = GetLastError()
Console.WriteLine("LogonUser Success? " + loggedOn)
Console.WriteLine("NT Token Value: " + token1)
If ret <> 0 Then
Console.WriteLine("Error code (126 == ""Specified module could not
be found""): " + ret)
End If
'Starting impersonation here:
Console.WriteLine("Before impersonation:")
Dim mWI1 As WindowsIdentity = WindowsIdentity.GetCurrent()
Console.WriteLine(mWI1.Name)
Console.WriteLine(mWI1.Token)
Dim token2 As IntPtr = new IntPtr(token1)
Console.WriteLine("New identity created:")
Dim mWI2 As WindowsIdentity = new WindowsIdentity(token2)
Console.WriteLine(mWI2.Name)
Console.WriteLine(mWI2.Token)
'Impersonate the user.
Dim mWIC As WindowsImpersonationContext = mWI2.Impersonate()
Console.WriteLine("After impersonation:")
Dim mWI3 As WindowsIdentity = WindowsIdentity.GetCurrent()
Console.WriteLine(mWI3.Name)
Console.WriteLine(mWI3.Token)
'Revert to previous identity.
mWIC.Undo()
Console.WriteLine("After impersonation is reverted:")
Dim mWI4 As WindowsIdentity = WindowsIdentity.GetCurrent()
Console.WriteLine(mWI4.Name)
Console.WriteLine(mWI4.Token)
End Sub
End Class
|
|
|
|
|
Thanks will let you know the output as soon as I shall test this.
Regards
|
|
|
|
|
Hello,
I have a datagridview that is bound to a bindingsource.
I have the binding source filter to only display 'ordered' rows. However, I have a combo box in the datagridview that will list 'ordered', 'to be ordered' and 'delivered'.
However, as the datagridview is filter to only display 'ordered' rows, as soon as the user selects either 'to be ordered' or 'delivered' it will automatically filter those rows. However, the customer wants to change all the displayed rows to 'delivered' then click save so all the rows will filter at that time.
Currently the row will disappear as soon as the combo box is selected to something.
I did try to use the suspendbinding, but that doesn't work for the dgv. I thought that might suspend the binding so the filter won't take place until after the user clicks the save button.
here is some code:
Many thanks for any help,
<br />
Try<br />
<br />
Me.bsOrderDetailsPending.Filter = String.Format("Status = '{0}' AND OrderID = '{1}'", "Ordered", Me.cboPendingOrders.SelectedValue)<br />
Me.dgvPendingOrders.AutoGenerateColumns = False<br />
Me.dgvPendingOrders.DataSource = Me.bsOrderDetailsPending<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
|
|
|
|
|
I think you are going to have to rethink how the program is going to work behind the scenes. You will need a new field that will store the status you want to change it to. So you will filter by the status it currently is...and then when they click save, you will change the current status to the new status.
Hope this helps.
|
|
|
|
|
Hello,
Thanks for the reply.
However, that is not really the solution I was looking for.
The only thing i have found out is to do this:
<br />
Me.bsOrderDetailsPending.RaiseListChangedEvents = False<br />
however, by doing this the datagridview doesn't work as well.
Thanks for any more suggestions,
Steve
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
