lgice348's Profile User Rating: -----

Reputation: 0 Apprentice
Group:
New Members
Active Posts:
13 (0.03 per day)
Joined:
13-March 12
Profile Views:
439
Last Active:
User is offline Mar 22 2012 02:42 PM
Currently:
Offline

Previous Fields

Country:
US
OS Preference:
Linux
Favorite Browser:
FireFox
Favorite Processor:
AMD
Favorite Gaming Platform:
Playstation
Your Car:
Ford
Dream Kudos:
0

Latest Visitors

No latest visitors to show

Icon   lgice348 has not set their status

Posts I've Made

  1. In Topic: Convert HTML/Javascript html file to VB code

    Posted 20 Mar 2012

    Ok i understand now and going back and looking that is what i was needing i was not taking in the fact of the radio buttons thanks guys for the help ill keep you updated in a few
  2. In Topic: Convert HTML/Javascript html file to VB code

    Posted 19 Mar 2012

    So i would basically stack the frames on each other? that part is what im not understanding i figured out how to show frames and such but what if i need to use multiple options wouldnt the frames just end up stacking on each other?
  3. In Topic: Convert HTML/Javascript html file to VB code

    Posted 19 Mar 2012

    no i dont have to use forms i just didnt know of any other way. how could i use frames as containers. Because the info behind the buttons is going to be more textboxes to fill out? i guess im confused at this point :)
  4. In Topic: Convert HTML/Javascript html file to VB code

    Posted 19 Mar 2012

    What im trying to do is basically make the template that i have in .html (attached on 1st post) in a vb6 .exe that i can run outside of IE. what ive tried doing here is 1st create my main form which is frmTemplate and when ever i have a user click on the PW Reset button frmPWreset loads into the frmTemp frame.

    P.S. I uploaded a SS :)
  5. In Topic: Convert HTML/Javascript html file to VB code

    Posted 19 Mar 2012

    :) sorry for confusing you :) her eis the code

    Option Explicit
    Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    
    
    Private Sub btnClear_Click()
    
        If btnClear Then
    btnNavilink.Visible = False
        End If
        If btnClear Then
    btnBAS.Visible = False
        End If
        If btnClear Then
    btnPACE.Visible = False
        End If
        If btnClear Then
    btnOmar.Visible = False
        End If
        If btnClear Then
    btnWorkstation.Visible = False
        End If
    
        If Check1 Then
    frmEmail.Visible = False
        End If
            Check1.Value = 0
        If Check2 Then
    frmLocation.Visible = False
        End If
            Check2.Value = 0
        If Check3 Then
    frmComputerName.Visible = False
        End If
            Check3.Value = 0
            
    frmSummary.Text = ""
    frmLan.Text = ""
    frmContact.Text = ""
    cmbSev.Text = ""
    cmbLocation.Text = ""
    frmDesc.Text = ""
    frmEmail.Text = ""
    frmLocation.Text = ""
    frmComputerName.Text = ""
    frmPWreset.Hide
    frmPWreset.frmPWreset1.Text = ""
    frmPWreset.frmPWreset2.Text = ""
    
    End Sub
    
    Private Sub btncopy_Click()
    
    Clipboard.Clear
    Clipboard.SetText frmSummary.Text
    'Clipboard.SetText frmDesc.Text
    'Clipboard.SetText frmLan.Text
    'Clipboard.SetText frmContact.Text
    'Clipboard.SetText cmbSev.Text
    'Clipboard.SetText cmbLocation.Text
    
        'If Check1 = True Then
    'Clipboard.SetText frmEmail.Text
        'End If
    
    MsgBox ("Template copied! Paste (CTRL+V or right click and paste) into long description of Service Center ticket")
    
    End Sub
    
    Private Sub btnDeskside_Click()
    
        If btnDeskside Then
    btnNavilink.Visible = True = btnNavilink.Visible = False
        End If
        If btnDeskside Then
    btnBAS.Visible = True = btnBAS.Visible = False
        End If
        If btnDeskside Then
    btnPACE.Visible = True = btnPACE.Visible = False
        End If
        If btnDeskside Then
    btnOmar.Visible = True = btnOmar.Visible = False
        End If
        If btnDeskside Then
    btnWorkstation.Visible = True = btnWorkstation.Visible = False
        End If
    
    End Sub
    
    Private Sub btnEnd_Click()
    
        If btnEnd Then
    btnNavilink.Visible = False
        End If
        If btnEnd Then
    btnBAS.Visible = False
        End If
        If btnEnd Then
    btnPACE.Visible = False
        End If
        If btnEnd Then
    btnOmar.Visible = False
        End If
        If btnEnd Then
    btnWorkstation.Visible = False
        End If
        
    frmPWreset.Hide
    
    End Sub
    
    Private Sub btnPw_Click()
    
    frmPWreset.Show
    SetParent frmPWreset.hWnd, frmTemp.hWnd
    
    End Sub
    
    Private Sub Check1_Click()
    
        If Check1 Then
    frmEmail.Visible = True
        Else
    frmEmail.Visible = False
        End If
    
    End Sub
    
    Private Sub Check2_Click()
    
        If Check2 Then
    frmLocation.Visible = True
        Else
    frmLocation.Visible = False
        End If
    
    End Sub
    
    Private Sub Check3_Click()
    
        If Check3 Then
    frmComputerName.Visible = True
        Else
    frmComputerName.Visible = False
        End If
    
    End Sub
    

My Information

Member Title:
New D.I.C Head
Age:
Age Unknown
Birthday:
June 21
Gender:
Location:
Chattanooga, TN
Programming Languages:
xHTML/CSS

Contact Information

E-mail:
Private
AIM:
AIM  lgice
Website URL:
Website URL  http://realgamers.org

Friends

Comments

lgice348 has no profile comments yet. Why not say hello?