Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
M

Member 843064

@Member 843064
About
Posts
3
Topics
2
Shares
0
Groups
0
Followers
0
Following
0

Posts

Recent Best Controversial

  • Datagrid in VB6
    M Member 843064

    you may build your own rioght click menu then add the code to tge options in your right click menu. Its not very difficult. there is tons of free source code for a right click menu...take a look on the google search engine Greg S

    Visual Basic

  • can someone tell me how to correct this
    M Member 843064

    Public Sub CalcDaysWorked() Dim I, X As Integer For I = 41 To 1 Step -1 If (FrmCalendar.TxtDate(I).Text = "1") Or ((FrmCalendar.TxtDate(I).Text = "2") Or (FrmCalendar.TxtDate(I).Text = "3") Or _ (FrmCalendar.TxtDate(I).Text = "7")) Then FrmCalendar.TxtDaysWrkd.Text = (Val(X)) Exit Sub Else If FrmCalendar.TxtDate(I).Text = "W" Then X = (X + 1) Else If (FrmCalendar.TxtDate(I).Text <> "1") Or ((FrmCalendar.TxtDate(I).Text <> "2") Or _ (FrmCalendar.TxtDate(I).Text <> "3") Or (FrmCalendar.TxtDate(I).Text <> "7")) Then 'IGNORE IT I = (I - 1) End If End If End If Next I FrmCalendar.TxtDaysWrkd.Text = (Val(X)) FrmCalendar.TxtDaysWrkd.Refresh End Sub BAsically this is part of an employees attendance/work record it keeps track of points(1,2,3 or 7) days worked"w" and some misc info that need not be tracked for this calculation thus the I=I-1 'to ignore the entry I need to calculate the days worked (my w's) after the last occurance of an infraction(1,2,3 or 7) My code works 100% however i forsee an error if a "w" is enetered on the last day of the month This is because the x values is only calulating on ever other loop through the code The problem is in the above code..When I debug it it gets called on correctly everytime but the "x" value is not incrementing by 1 every time! Greg S

    Visual Basic help debugging tutorial

  • Controls at runtime
    M Member 843064

    Basically ive a homemade webbrowser with lots of security and tools. On my main form..frmWebbrowser I plaaced an SStab1. I created code(works upon user request) to add a new tab with url as its name.eg... BrowserForm.Frame1.Visible = False BrowserForm.SSTab1.TabCaption(0) = BrowserForm.AddressField.Text BrowserForm.SSTab1.Tabs = 2 BrowserForm.SSTab1.TabCaption(1) = BrowserForm.AddressField.Text no problem here....but I want to create a new browser on the new tab. This must be done at runtime. ANd help would be highly appreciated..Thanks in Advance you guys have helped a lot already! oh..some FYI...:confused: Also I guess there are some issues with making the browser visible... thanks Greg S

    Visual Basic help security tools
  • Login

  • Don't have an account? Register

  • Login or register to search.
  • First post
    Last post
0
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups