Portal:AOL-Files/Articles/History Change - Revision history

AD: AD moved page Portals:AOL-Files/Articles/History Change to Portal:AOL-Files/Articles/History Change

2021-06-19T03:06:00Z

AD moved page Portals:AOL-Files/Articles/History Change to Portal:AOL-Files/Articles/History Change

← Older revision		Revision as of 03:06, 19 June 2021
(No difference)

AD at 03:00, 16 October 2020

2020-10-16T03:00:39Z

← Older revision		Revision as of 03:00, 16 October 2020
Line 1:		Line 1:
	{{AOL-Files}}		{{AOL-Files
			\|section=articles}}
	(Originally by AOL-Files staff member Tau)		(Originally by AOL-Files staff member Tau)

AD at 08:56, 2 October 2020

2020-10-02T08:56:13Z

← Older revision		Revision as of 08:56, 2 October 2020
Line 13:		Line 13:

	<pre>		<pre>
			Option Explicit

			Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
			Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
			Private Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
			Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
			Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal CMD As Long) As Long

			Private Const CB_GETCOUNT = &H146
			Private Const CB_GETLBTEXTLEN = &H149
			Private Const CB_GETLBTEXT = &H148
			Private Const CB_DELETESTRING = &H144

			Private Sub cmdOK_Click()
			Unload Me
			End Sub

			Private Sub Form_Load()
			Dim AOL&, ToolBar1&, ToolBar2&, ComboBox&, ComboCount&
			Dim Index&, comboLen&, pString$
			AOL = FindWindow("AOL Frame25", vbNullString)
			ToolBar1 = FindWindowEx(AOL, 0, "AOL Toolbar", vbNullString)
			ToolBar2 = FindWindowEx(ToolBar1, 0, "_AOL_Toolbar", vbNullString)
			ComboBox = FindWindowEx(ToolBar2, 0, "_AOL_Combobox", vbNullString)
			ComboCount = SendMessageByNum(ComboBox, CB_GETCOUNT, 0, 0&)
			For Index = 0 To ComboCount&
			comboLen = SendMessageByNum(ComboBox, CB_GETLBTEXTLEN, Index, 0&)
			pString = String(comboLen + 1, Chr(0))
			Call SendMessageByString(ComboBox, CB_GETLBTEXT, Index, pString)
			lstHistory.AddItem pString
			Next Index
			Call EnableWindow(ComboBox, 0)
			End Sub

			Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
			Dim AOL&, ToolBar1&, ToolBar2&, ComboBox&
			AOL = FindWindow("AOL Frame25", vbNullString)
			ToolBar1 = FindWindowEx(AOL, 0, "AOL Toolbar", vbNullString)
			ToolBar2 = FindWindowEx(ToolBar1, 0, "_AOL_Toolbar", vbNullString)
			ComboBox = FindWindowEx(ToolBar2, 0, "_AOL_Combobox", vbNullString)
			Call EnableWindow(ComboBox, 1)
			End Sub

			Private Sub lstHistory_DblClick()
			Dim vbIndex&, AOL&, ToolBar1&, ToolBar2&, ComboBox&
			vbIndex& = lstHistory.ListIndex
			lstHistory.RemoveItem vbIndex&
			AOL = FindWindow("AOL Frame25", vbNullString)
			ToolBar1 = FindWindowEx(AOL, 0, "AOL Toolbar", vbNullString)
			ToolBar2 = FindWindowEx(ToolBar1, 0, "_AOL_Toolbar", vbNullString)
			ComboBox = FindWindowEx(ToolBar2, 0, "_AOL_Combobox", vbNullString)
			Call EnableWindow(ComboBox, 1)
			Call SendMessageByNum(ComboBox, CB_DELETESTRING, vbIndex, 0&)
			Call EnableWindow(ComboBox, 0)
			End Sub
	</pre>		</pre>

AD: Created page with "{{AOL-Files}} (Originally by AOL-Files staff member Tau) '''Purpose:''' This will add all the items in the history box on the AOL toolbar to a List Box. When the user double..."

2020-10-02T08:51:50Z

Created page with "{{AOL-Files}} (Originally by AOL-Files staff member Tau) '''Purpose:''' This will add all the items in the history box on the AOL toolbar to a List Box. When the user double..."

New page

{{AOL-Files}}

(Originally by AOL-Files staff member Tau)

'''Purpose:'''
This will add all the items in the history box on the AOL toolbar to a List Box. When the user double clicks one of the items it will be removed from the AOL history box.

'''Requirements:'''
This code requires a ListBox named lstHistory and a Command Button named cmdOK.

'''System:'''
Designed with Visual Basic 6.0 to be used with no BAS file on America Online version 4.0 or 5.0

<pre>

</pre>

[[Category:AOL]]
[[Category:AOL-Files]]
[[Category:FDO-Files]]