lgice348's Profile
Reputation: 0
Apprentice
- Group:
- New Members
- Active Posts:
- 13 (0.03 per day)
- Joined:
- 13-March 12
- Profile Views:
- 439
- Last Active:
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
Posts I've Made
-
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 -
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? -
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
-
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
-
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:
-
lgice
- Website URL:
-
http://realgamers.org
Friends
|
|


Find Topics
Find Posts
View Reputation Given

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