Visual Basic

Re: VB 2010 Error: Property access must assign to the property or use its values.

18-Apr-16 21:47

OK ... once again :
Which kind of Datatype do you get from SendWeightRequest(-Function) ?

Gus11319-Apr-16 0:39

Gus113

19-Apr-16 0:39

A string.

Re: VB 2010 Error: Property access must assign to the property or use its values.

Ralf Meier19-Apr-16 1:00

Re: VB 2010 Error: Property access must assign to the property or use its values.

19-Apr-16 1:00

OK ... what is the real return-value from your Function "SendWeightRequest" ? You could see it in the Debugger-Mode.

But ... perhaps you should better offer/provide the code of the Function "SendWeightRequest" ...

Gus11319-Apr-16 1:58

Gus113

19-Apr-16 1:58

I have posted the code earlier into the thread.

Re: VB 2010 Error: Property access must assign to the property or use its values.

Richard MacCutchan19-Apr-16 3:27

Richard MacCutchan

19-Apr-16 3:27

Did you actually correct either of the two errors that have been pointed out to you?

Re: VB 2010 Error: Property access must assign to the property or use its values.

Ralf Meier20-Apr-16 1:10

Re: VB 2010 Error: Property access must assign to the property or use its values.

20-Apr-16 1:10

I have not seen this code-part before - please excuse me.

But : from where comes the content of the Variable (?) "weightRequested"

I still think that more Information could be very useful ...

Gus11328-Apr-16 22:32

Gus113

28-Apr-16 22:32

Hi guys.

Thanks for the help. I got the code to run error free but now its becoming more complex, but that is for another forum.

Keep on coding...

VB6: Resource Editor shows no resources [SOLVED]

Alan Balkany14-Apr-16 4:14

Alan Balkany

14-Apr-16 4:14

I've inherited a VB6 project that uses resources, and they work fine, but when I open the resource file with the resource editor, there are no resources there! Googling hasn't turned up any similar problems.

Anyone have an idea how to get access to the project's resources? Thanks!

modified 14-Apr-16 12:58pm.

Re: VB6: Resource Editor shows no resources [SOLVED]

Alan Balkany14-Apr-16 7:00

Alan Balkany

14-Apr-16 7:00

It turns out the geniuses who created this project made their own resource file with their own custom format! Arrgh...the joys of legacy code!

Font Designer in VB.NET 2008 Express

Soubarna Das13-Apr-16 5:29

Re: Font Designer in VB.NET 2008 Express

13-Apr-16 5:29

I want to build a Font Designer Application in VB.NET. With which we can create or designed new type of fonts. But I can't understand what will be the starting point?

Richard Andrew x6413-Apr-16 5:32

Richard Andrew x64

13-Apr-16 5:32

The logical starting point would be to research and understand font files, their format and how they are created.

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

Changing Page Culture

Hakmeh Mohannad12-Apr-16 3:13

Hakmeh Mohannad

12-Apr-16 3:13

Hi am working on new website with 2 languages only
so far i have succeeded to do it as this

MasterPage on Page_Init event

VB.NET

If (Session("culture") IsNot Nothing) Then
            Dim ci As New CultureInfo(Session("culture").ToString())
            Thread.CurrentThread.CurrentCulture = ci
            Thread.CurrentThread.CurrentUICulture = ci
        End If

ManagerBase Class OnInit event

If Session("culture") Is Nothing Then
            Dim languages() As String = HttpContext.Current.Request.UserLanguages
            If ((languages Is Nothing) OrElse (languages.Length = 0)) Then
                Session("culture") = "en-US"
            Else
                Session("culture") = languages(0).ToLowerInvariant.Trim
                If Session("culture").Contains("ar") Then
                    Session("culture") = "ar-SA"
                Else
                    Session("culture") = "en-US"
                End If
            End If
        End If

Change Language Event

If Thread.CurrentThread.CurrentCulture.IetfLanguageTag = "ar-SA" Then
            Session("culture") = "en-US"
            MyBase.OnInit(e)
            Server.Transfer(Request.Url.PathAndQuery)
        Else
            Session("culture") = "ar-SA"
            MyBase.OnInit(e)
            Server.Transfer(Request.Url.PathAndQuery)
        End If

the thing is when user choose another page or select different view in the page he lose the culture he selected it

how i can fix it?

Pass Checked CheckBox count from one form to another

Soubarna Das7-Apr-16 23:24

Re: Pass Checked CheckBox count from one form to another

7-Apr-16 23:24

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

CHill608-Apr-16 1:53

CHill60

8-Apr-16 1:53

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[^]

Re: Pass Checked CheckBox count from one form to another

Soubarna Das10-Apr-16 11:36

Re: Pass Checked CheckBox count from one form to another

10-Apr-16 11:36

Thanks for those nice tutorials.

Ralf Meier9-Apr-16 10:17

Re: Pass Checked CheckBox count from one form to another

9-Apr-16 10:17

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 ?

Soubarna Das10-Apr-16 11:36

Re: Pass Checked CheckBox count from one form to another

10-Apr-16 11:36

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

Ralf Meier11-Apr-16 0:50

Re: Pass Checked CheckBox count from one form to another

11-Apr-16 0:50

so ... is your question answered now ?

Soubarna Das13-Apr-16 5:25

What Does FilterWorkbook Macro Actually Do?

13-Apr-16 5:25

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

Member 124440697-Apr-16 16:19

Member 12444069

7-Apr-16 16:19

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

Richard MacCutchan7-Apr-16 21:11

Richard MacCutchan

7-Apr-16 21:11

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

Member 124440688-Apr-16 8:18

Member 12444068

8-Apr-16 8:18

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

Richard MacCutchan8-Apr-16 22:09

Richard MacCutchan

8-Apr-16 22:09

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