Visual Basic

Re: Minimize 3 forms pressing the minimize button on main form

2-Apr-14 17:27

dilkonika wrote:
It's not an experiment. I have a situation where I need this.

No, I said this is where you come up with a small test project and experiment for yourself! It's the best way to learn.

A guide to posting questions on CodeProject

How to debug small programs

Dave Kreskowiak

Bernhard Hiller2-Apr-14 21:09

Bernhard Hiller

2-Apr-14 21:09

Create a WindowStateChanged event for your forms (you may need to override WndProc to get the underlying Windows message WM_SYSCOMMAND SC_MINIMIZE etc). Child forms need to subscribe to that event of their parent form and react appropriately.
Also look at the TopLevel property of the forms.

Re: Minimize 3 forms pressing the minimize button on main form

Alan N3-Apr-14 2:53

Alan N

3-Apr-14 2:53

This is quite an interesting problem. To get the desired Z-order then the main form must own Form2 and Form2 must own Form3. Having set that up we find that Form3 is unaffected by minimization of the MainForm/Form2 pair.

Form3 needs to be linked to Form2 in some way, but how? My first guess was to try the SizeChanged event but found that Form2 does not raise SizeChanged when MainForm is minimized. Next guess was the LocationChanged event but it's not that either. However VisibleChanged is raised by Form2 when MainForm minimizes or restores. So Form2 is hidden when MainForm is minimized and the solution to the problem becomes clear.

Form3 could subscribe to the VisibleChanged event of Form2 and set it's visibility but I chose to do it in a different way. In the test code Form2 hides/shows all the forms in it's OwnedForms collection in response to the VisibleChanged event.

Test code
=========

Private Sub CreatePopups()
  Dim f2 As New Form()
  f2.Text = "First Popup"
  AddHandler f2.VisibleChanged, AddressOf Form_VisibleChanged
  REM owner is the main form
  f2.Show(Me)

  Dim f3 As New Form()
  f3.Text = "Second Popup"
  f3.Show(f2)
End Sub

Private Sub Form_VisibleChanged(sender As Object, e As EventArgs)
  Dim f As Form = DirectCast(sender, Form)
  For Each ownedForm As Form In f.OwnedForms
    ownedForm.Visible = f.Visible
  Next
End Sub

Alan.

Re: Minimize 3 forms pressing the minimize button on main form

dilkonika3-Apr-14 7:51

File system window in VB.net 2008 Express?

3-Apr-14 7:51

Finally , Resolved.
Thank you !

Member 1071375231-Mar-14 10:48

Member 10713752

31-Mar-14 10:48

I learn from old book VB.net 6 and there describe about File system window:
http://s3.postimg.org/k7zv7091f/file_system.jpg[^]

But I could not find it in VB.net 2008 Express.

Re: File system window in VB.net 2008 Express?

Dave Kreskowiak31-Mar-14 10:58

Re: File system window in VB.net 2008 Express?

31-Mar-14 10:58

Don't call it VB.NET 6. You'll get some very confused looks. Call it VB.NET 2008.

You're looking at the old Setup and Deployment project. This wasn't available in any Express editions of Visual Studio and, really, the entire project type was removed from Visual Studio 2010 and above.

Use a 3rd party installation crafting tool like Advanced Installer, InstallShield, InnoSetup, Wix, ANYTHING but the Setup and Deployment project.

A guide to posting questions on CodeProject

How to debug small programs

Dave Kreskowiak

Member 107137521-Apr-14 4:48

Member 10713752

1-Apr-14 4:48

Thank you.

Error writing to windows Registry

dilkonika31-Mar-14 8:06

31-Mar-14 8:06

Hello !
I'm trying to write data in windows registry with this code :

Private Sub write(vl As String)
      Dim key As String = "SOFTWARE"
      Dim regkey As RegistryKey = Registry.LocalMachine.OpenSubKey(key, True)
      If IsNothing(Registry.LocalMachine.OpenSubKey(key & "\DQ10", True)) Then
          regkey.CreateSubKey("DQ10")
      End If
      regkey = Registry.LocalMachine.OpenSubKey(key & "\DQ10", True)
      regkey.SetValue("P_US32", vl)
      regkey.Close()
  End Sub

But on this line :

Dim regkey As RegistryKey = Registry.LocalMachine.OpenSubKey(key, True)

I'm getting this error :

An unhandled exception of type 'System.Security.SecurityException' occurred in mscorlib.dll

Additional information: Requested registry access is not allowed.

What can I do ?
Thank you !

Richard Deeming31-Mar-14 8:34

31-Mar-14 8:34

The error message is quite clear: your application doesn't have permission to write to the HKEY_LOCAL_MACHINE hive of the registry.

Either change your code to read/write from a key under the HKEY_CURRENT_USER hive, or run your application with the elevated permissions required to write to the machine hive.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika31-Mar-14 8:55

31-Mar-14 8:55

The application was running ok from the visual basic 2012. I have upgraded to visual basic 2013 , and after that I can't write anymore to this key.
and I run the application under an administrator account

modified 31-Mar-14 15:09pm.

Richard Deeming31-Mar-14 9:05

31-Mar-14 9:05

It's nothing to do with the version of Visual Basic or .NET; your application simply doesn't have permission to write to the key.

Unless your application is running as a user with Local Administrator permissions with UAC elevation, you won't be able to write to the HKEY_LOCAL_MACHINE hive of the registry.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika31-Mar-14 9:12

31-Mar-14 9:12

Ok , but I have noticed this problem after the upgrade process.
And I'm running my application as a Administrator user . ( if I use regedit , I can write to this key)

Richard Deeming31-Mar-14 9:17

31-Mar-14 9:17

Yes, but are you running elevated? With UAC, even if you're running as a local administrator, you won't have local admin permissions unless you elevate. The reason regedit works is because it always elevates.

http://researchaholic.com/2010/07/15/how-to-set-an-exe-to-require-admin-authority-uac-on-launch/[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika31-Mar-14 9:25

31-Mar-14 9:25

UAC is disabled on my computer
If I run the exe file outside the visual studio , I run with "run as administrator" everything is ok.

Richard Deeming31-Mar-14 9:33

31-Mar-14 9:33

As far as I'm aware, that just means that applications which request elevation will automatically elevate without prompting. If your application doesn't request elevation, it will still be running as a standard user.

You can use Process Explorer[^] to determine whether your application is running elevated:
http://superuser.com/a/74521[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika31-Mar-14 9:45

31-Mar-14 9:45

I check with Process explorer , and the application is running as standart user.
But how can I force the application , inside visual studio to run as Elevated ?
I repeat , that this problem appear immediatly after Visual basic upgrade from 2012 to 2013. After upgrade , I run my application inside visual basic , and I get this error.

Richard Deeming31-Mar-14 9:49

31-Mar-14 9:49

You need to add or edit the application manifest:
http://researchaholic.com/2010/07/15/how-to-set-an-exe-to-require-admin-authority-uac-on-launch/[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

dilkonika31-Mar-14 10:08

31-Mar-14 10:08

in my manifest file , I try all these optons :

XML

<requestedExecutionLevel  level="asInvoker" uiAccess="false" />
<requestedExecutionLevel  level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel  level="highestAvailable" uiAccess="false" />

but still I can't read or write to the key.

Compare databases structure

Richard Andrew x6431-Mar-14 10:42

Richard Andrew x64

31-Mar-14 10:42

Try running Visual Studio elevated before running your application.

The difficult we do right away...
...the impossible takes slightly longer.

dilkonika29-Mar-14 2:42

Re: Compare databases structure

29-Mar-14 2:42

Hello !
I have 2 databases one of them is a empty database , and other has data.
Using SMO , how can I check that the second database has the same tables structure as the first database ?
Thank you !

Peter Leow29-Mar-14 3:12

Peter Leow

29-Mar-14 3:12

This may help: SQL Server Database Comparison Tool[^]

Run a vb project in other systems

Sanya Raj29-Mar-14 0:03

Sanya Raj

29-Mar-14 0:03

i have created a project in vb6.0 with oracle database connection.
now, i want to copy it in a cd.,
i want to transfer the project to another system.,
how can i do this?

Re: Run a vb project in other systems

Dave Kreskowiak29-Mar-14 4:03

How to delete file from FTPS server (using LibCurlNet)

29-Mar-14 4:03

Create an installation for it. You can TRY to use the Setup and Deployment wizard, but since VB6 is so old, I have seen that the resulting installer doesn't work so good on todays operating systems.

The installer is creates also looks VERY dated. You'd be better of creating an installation from scratch using a newer installation creation app, like InstallShield.

VB6 is so old now that it's not supported. You shouldn't have started new development work in it and used Visual Studio VB.NET Express (or higher) instead.

A guide to posting questions on CodeProject

How to debug small programs

Dave Kreskowiak

Johan Hakkesteegt28-Mar-14 0:51

Johan Hakkesteegt

28-Mar-14 0:51

Hi,

I am dealing with an old FTPS server. (not to be mistaken for SFTP)
I can connect to it using LibCurlNet. (couldn't get it to work with .net's FtpWebRequest / FtpWebResponse)

using the following code:

With easy
                .SetOpt(CURLoption.CURLOPT_URL, _URI)
                .SetOpt(CURLoption.CURLOPT_SSL_VERIFYPEER, False)
                .SetOpt(CURLoption.CURLOPT_SSL_VERIFYHOST, False)
                .SetOpt(CURLoption.CURLOPT_FTP_SSL, CURLftpSSL.CURLFTPSSL_TRY)

                'For debugging will print received data to console
                .SetOpt(CURLoption.CURLOPT_DEBUGFUNCTION, New Easy.DebugFunction(AddressOf GetFileList))
                .SetOpt(CURLoption.CURLOPT_VERBOSE, True)

                'Get directory listing
                .SetOpt(CURLoption.CURLOPT_FTPLISTONLY, True)

                Dim code As CURLcode = .Perform()
                If code = CURLcode.CURLE_OK Then
                    'Console.WriteLine()
                    If blnFileListSuccess Then
                        If file_list.Count > 0 Then bResult = ProcessResults.AllroundSuccess
                    End If
                Else
                    bResult = ProcessResults.FTPConnectionFailure
                End If
                .Cleanup()
            End With

(with adaptations for each action of course)
I can list files.
I can download files.
I can upload files.
But I cannot delete files.That is, I don't know how to do it with LibCurlNet.

So my question is this, can anyone tell me how to delete files from an ftp server using LibCurlNet ?

Or alternatively, can anyone tell me how to connect to, and interact with, FTPS using normal .net ?

All help much appreciated.

Regards,
Johan

My advice is free, and you may get what you paid for.

Re: How to delete file from FTPS server (using LibCurlNet)

Dave Kreskowiak28-Mar-14 4:13