What Does FilterWorkbook Macro Actually Do? - Visual Basic Discussion Boards

I have two form, Form2 contains dynamically created checkboxes and Form1 has a textbox(TextBoxSelected). I add event handler to the checkboxes that count the total number of checked chekboxes. Now I want to pass the count value to the TextBoxSelected.
CheckBox Code in Form2

VB.NET

Public Sub CreateCheckBox(ByVal _filename As String, ByVal _displayname As String)
        Dim checkBox = New CheckBox()
'------------ '  
'--------------'
        checkBox.Size = New Size(117, 109)
        checkBox.Text = (_displayname)
        checkBox.Image = resized
        checkBox.BackColor = Color.Gray
        checkBox.ForeColor = Color.White
        checkBox.TextAlign = ContentAlignment.BottomCenter
        checkBox.Location = New System.Drawing.Point(XcLocation, YcLocation)
        AddHandler checkBox.CheckedChanged, AddressOf myhandler2
End Sub

Private Sub myhandler2(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Dim cb As CheckBox
        'cb = CType(sender, CheckBox)
        Selected()
        'MsgBox(SelectedCount)      
End Sub

Private Sub Selected()
        Dim count As Integer
        count = 0
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is CheckBox Then
                If DirectCast(ctrl, CheckBox).Checked = True Then
                    count += 1 'this will count the checked checkboxes

                End If
            End If
        Next     
End Sub

I suggest that you read this series of articles from @OriginalGriff here on CodeProject:

Transferring information between two forms, Part 1: Parent to Child[^]
Transferring information between two forms, Part 2: Child to Parent[^]
Transferring information between two forms, Part 3: Child to Child[^]

Thanks for those nice tutorials.

Now ... what is your question ?
I think, that your code which count the checked Checkboxes is working.
Don't you know how to find out, which Textbox is actually selected ?

I have solved it by following the tutorial in the link below
How to pass data between two forms in VB .NET | DaniWeb[^]

so ... is your question answered now ?

Yes. And I solved it out as I mentioned in my previous reply.

C#

Sub FilterWorkbook()
    Sheets("SAT Assignments").Visible = True
    Sheets("SAT Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("SAT Assignments").Visible = False
    
    
    
    Sheets("SAT OSS Vac Log").Visible = True
    Sheets("SAT OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("SAT OSS Vac Log").Visible = False
    
    
    
    
    Sheets("SUN Assignments").Visible = True
    Sheets("SUN Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("SUN Assignments").Visible = False
    
    
    
    Sheets("SUN OSS Vac Log").Visible = True
    Sheets("SUN OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("SUN OSS Vac Log").Visible = False
    
    
    
    
    
    Sheets("MON Assignments").Visible = True
    Sheets("MON Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("MON Assignments").Visible = False
    
    Sheets("MON DBCS Vac Log").Visible = True
    Sheets("MON DBCS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("MON DBCS Vac Log").Visible = False
    
    Sheets("MON OSS Vac Log").Visible = True
    Sheets("MON OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("MON OSS Vac Log").Visible = False
    
    
    
    
    
    
    
    Sheets("TUE Assignments").Visible = True
    Sheets("TUE Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("TUE Assignments").Visible = False
    
    Sheets("TUE DBCS Vac Log").Visible = True
    Sheets("TUE DBCS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("TUE DBCS Vac Log").Visible = False
    
    Sheets("TUE OSS Vac Log").Visible = True
    Sheets("TUE OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("TUE OSS Vac Log").Visible = False
    
    
    
    
    
    
    
    Sheets("WED Assignments").Visible = True
    Sheets("WED Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("WED Assignments").Visible = False
    
    Sheets("WED DBCS Vac Log").Visible = True
    Sheets("WED DBCS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("WED DBCS Vac Log").Visible = False
    
    Sheets("WED OSS Vac Log").Visible = True
    Sheets("WED OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("WED OSS Vac Log").Visible = False
    
    
    
      
        
    Sheets("THU Assignments").Visible = True
    Sheets("THU Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("THU Assignments").Visible = False
    
    Sheets("THU DBCS Vac Log").Visible = True
    Sheets("THU DBCS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("THU DBCS Vac Log").Visible = False
    
    Sheets("THU OSS Vac Log").Visible = True
    Sheets("THU OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("THU OSS Vac Log").Visible = False
    
    
    
    
    
        
    Sheets("FRI Assignments").Visible = True
    Sheets("FRI Assignments").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("K1").Select
    Sheets("FRI Assignments").Visible = False
    
    Sheets("FRI DBCS Vac Log").Visible = True
    Sheets("FRI DBCS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("FRI DBCS Vac Log").Visible = False
    
    Sheets("FRI OSS Vac Log").Visible = True
    Sheets("FRI OSS Vac Log").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A3").Select
    Sheets("FRI OSS Vac Log").Visible = False
    
        
        
        
    Sheets("SAT Crew Tags").Visible = True
    Sheets("SAT Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("SAT Crew Tags").Visible = False
    
    Sheets("SUN Crew Tags").Visible = True
    Sheets("SUN Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("SUN Crew Tags").Visible = False
    
    Sheets("MON Crew Tags").Visible = True
    Sheets("MON Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("MON Crew Tags").Visible = False
    
    Sheets("TUE Crew Tags").Visible = True
    Sheets("TUE Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("TUE Crew Tags").Visible = False
    
    Sheets("WED Crew Tags").Visible = True
    Sheets("WED Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("WED Crew Tags").Visible = False
    
    Sheets("THU Crew Tags").Visible = True
    Sheets("THU Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("THU Crew Tags").Visible = False
    
    Sheets("FRI Crew Tags").Visible = True
    Sheets("FRI Crew Tags").Select
    Selection.AutoFilter Field:=1, Criteria1:="="
    Range("A1").Select
    Sheets("FRI Crew Tags").Visible = False
    
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheets("Main Menu").Select
MsgBox_10
MainMenu
End Sub

You can see what it does. Alternatively you can run the code and watch it happening.

I run the code (F5) but I can't see what it actually does.

Then you need to compare the workbook before and after, and check that all parts of the code are working correctly.

Try using F8 and going through it step by step

C#

Hi, i am working in VB 2010 an a one-time pad software.
The problem is the following. I have a txt file with many continous characters like this "KHKJHDKJDHAKHDAKHDAKHAKDHADHAKJDHASJDHA", i need to read a variable number of this characters and after replace it with a same number of dots (Ex. "zxsd" replaced with "....").
Now, with this code i can read the characters from specific position:

Using stream = File.OpenRead("c:\key.txt")
stream.Seek(v, SeekOrigin.Begin) ' v = startup position for read in file key.txt 
Dim b = New Byte(a - 1) {} ' a= lenght of text in key.txt to be taken)
stream.Read(b, 0, a) 
Dim str = Encoding.ASCII.GetString(b)
txtPad.Text = str
End Using

But how i can do for replace text extracted with dots without delete any line?

Why would there be line breaks in the OTP file which aren't meant to be part of the OTP data? Doesn't make much sense to me - if you're at liberty to change that, I would recommend to do so.

First, you'll have to open the file for read/write access instead of read-only. Then, after reading your OTP string, you'll have to seek again to the position where you started to read it. Then you'll have to write the replacement-string there. There's more than one way to do this - one way would be to convert the source string into a char-array, loop over the characters in that array and write a dot to the file for every character that isn't part of a line break and write line-break characters unmodified to the file.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

Uhm why not read in the string and use string.replace() or am I missing something?

Never underestimate the power of human stupidity
RAH

For that he would have to have the substring-data that should be replaced as a string but it shouldn't be needed as a string for any other purpose, if I'm interpreting things right. Instead he should be looping over the single characters anyway in the encryption part.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

Hi Sascha, let me explain better, my project is a Vernam chat and i need to have one single keys txt file that must remain synchronized in some way between broadcaster and receiver. When I send the message the key used must be deleted and who receives after decripting too. I thought at line numbers of string to identify the key location, but I am open to other solutions.The goal is synchronizing the two key files! Confused | :confused:

Imagine your OTP file is just a sequence of bytes (or ASCII characters if you like). The message you want to encrypt is 100 (ASCII) characters long. The sender reads the next 100 characters from the OTP file, encrypts the message and sends it. The receiver sees 100 encrypted characters and also reads the next 100 characters from the OTP file to decrypt the message. Both sender and receiver know the length of the message, so they can update the position from where to read the next OTP-characters by the same amount. No line numbers needed.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

That is a bad way to do it, and can lead to corruption of your files. A much safer option is to use two files, one for input and one for output. Read the input file and copy the content to the output, replacing the required characters in memory as you copy. When you have successfully copied all the data you can delete the input file, or rename it to save as backup. You can then rename your output file to the original name of the input.

Good observation, but would be not preferable for a crypto chat read and write continuously wholly key file (size about 10 Mega) when just overwrite the first part of the file. I seek only a comfortable way to synchronize key file between broadcaster and receiver.

Fine, do it your way. But make sure you test your code to destruction before you use it on live data.

You could use a second file for just storing the position from where to read the next OTP-characters and leave the OTP-file unchanged.

If the brain were so simple we could understand it, we would be so simple we couldn't. — Lyall Watson

Hi,
I have a fileupload control on a web form, along with an upload button and a radio button list of file types.

There exists the possibility that the user could click the upload button before selecting a file in the fileupload control which would generate an error message that would be displayed asking them to select a file first.

The issue is; if this situation occurs, the message remains on the screen, even after they select a file.

Is there some way to add a reset method to this control, so the previous error message gets cleared when the fileupload control is selected?

I tried a few things already and as you can probably guess, they all failed.

Red.

Yes, but it kind of depends on how you've implemented it so far. But basically add an onfocus (JavaScript) event to the fileupload control and in that clear the message - to do this you'd obviously need to first of all make sure its been written to a DOM element you can access.

Hello,
I am automating the website ("http://incometaxindiaefiling.gov.in/e-Filing/UserLogin/LoginHome.html") filling using vb6.
The code which works in IE10 & below is given here,

VB

Dim WithEvents Web  As SHDocVw.InternetExplorer		
Private Sub Form_Load()		
	Set Web = New SHDocVw.InternetExplorer	
	Web.Visible = True	
	Web.Navigate "http://incometaxindiaefiling.gov.in/e-Filing/UserLogin/LoginHome.html"	
End Sub		
Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)		
On Error GoTo aaa		
	msgbox "   URL: " & URL	
	if url = "http://incometaxindiaefiling.gov.in/e-Filing/UserLogin/LoginHome.html" then	
	Web.Document.getElementById("Login_userName").Value = "abcde1111h"	
	Web.Document.getElementById("Login_userName").onchange	
	Web.Document.getElementById("Login_password").Value = "123456789"	
	Web.Document.getElementById("dateField").Value = "15/09/1954"	
	end if		
Exit Sub		
aaa:		
MsgBox Err.Description & "   URL: " & URL		
End Sub	
Private Sub Web_OnQuit()		
	MsgBox "OnQuit fired"	
End Sub

In IE11 (Windows 10) I am facing the following problem with my code,
when navigated to above URL using SHDocVw.InternetExplorer control
First DocumentComplete event will be fired with URL being empty.
Then OnQuit event is fired. Then again DocumentComplete event is fired with URL 'about:blank'

When I run the exe with ‘Run as admin’ option then it works in IE11 without any errors.

Why in IE11 normal run is giving error ?
Please help.