Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.object) Then 'HTML document is ready
Set objHTMLDoc = WebBrowser1.Document
If (objHTMLDoc Is Nothing) = False Then
bDocComplete = True
'lhwnd = WebBrowser1.hwnd 'throws 80004005 error (access denied)
WebBrowser1.SetFocus 'Does not work
Else
MsgBox "Unable to initialize html document " & vbCrLf & sHtmlDocFile , vbExclamation + vbOKOnly
End If
Else
MsgBox "Unable to instantiate webbrowser object.", vbExclamation + vbOKOnly
End IfPrivate Function objHTMLDoc_onclick() As Boolean
If objHTMLDoc.activeElement.className = "ts7" Then
objHTMLDoc.activeElement.Style.backgroundColor = "SpringGreen" 'Feedback for user -> active selected table cell.
sSelectedHTMLCode = CStr(objHTMLDoc.activeElement.outerText) 'OuterText contains clicked table cell text data.
If (objClicked Is Nothing) = False Then
'On Error Resume Next 'Workaround for the first round, when objClicked is nothing
If (TypeOf objClicked Is IHTMLTableCell) Then 'IHTMLTableCell
If sPreviousSelectedCode <> sSelectedHTMLCode Then
objClicked.Style.background = "White" 'Restore previous selection 'Occasional permission denied error '70'
End If
End If
End If
Set objClicked = objHTMLDoc.activeElement
sPreviousHTMLCode = sSelectedHTMLCode
End SubIf sHTMLPreviousMatKoodi <> sHTMLMatkoodi Then
On Error Resume Next 'Premission denied error '70' prevention
objClicked.Style.background "White" 'Restore previous selection(SM_CXEDGE + SM_CXFRAME) object (SM_CXFRAME + SM_CXEDGE) SM_CYEDGE
+
SM_CYFRAME
+
SM_CYCAPTION
object
SM_CYFRAME
+
SM_CYEDGEFor n = 1 To 32000
ImageList1.ListImages.Add , , Me.Icon
Next n '
'
For n = 0 To File1.ListCount - 1
Path = Dir1.Path & "\" & File1.List(n)
ImageList1.ListImages.Add , , GetAssocIcon(Path, False)
Next n
'
'Option Explicit
Private Const S_OK As Long = 0
Private Const MAX_PATH As Long = 260
Private Const SHGFI_ICON As Long = &H100&
Private Const SHGFI_LARGEICON As Long = &H0& '32x32 pixels.
Private Const SHGFI_SMALLICON As Long = &H1& '16x16 pixels.
Private Const SHGFI_USEFILEATTRIBUTES As Long = &H10&
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Private Type PictDesc_Icon
cbSizeofStruct As Long
picType As Long
hIcon As Long
End Type
Private Type Guid
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Function SHGetFileInfo Lib "shell32" Alias "SHGetFileInfoW" ( _
ByVal pszPath As Long, _
ByVal dwFileAttributes As Long, _
ByVal psfi As Long, _
ByVal cbSizeFileInfo As Long, _
ByVal uFlags As Long) As Long
Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameW" ( _
ByVal lpFileName As Long, _
ByVal nBufferLength As Long, _
ByVal lpBuffer As Long, _
ByVal lpFilePart As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32" ( _
ByVal lpPictDesc As Long, _
ByVal riid As Long, _
ByVal fOwn As Long, _
ByRef lplpvObj As IPicture) As Long
Private IPictureIID As Guid
Public Function GetAssocIcon( _
ByVal PathToFile As String, _
Optional ByVal LargeIcon As Boolean = False, _
Optional ByVal Extension As Boolean = False) As StdPicture
Dim SFI As SHFILEINFO
Dim Desc As PictDesc_Icon
If Len(PathToFile) = 0 And Extension Then PathToFile = "x" 'Win7 "generic icon" request fix.
If SHGetFileInfo(StrPtr(PathToFile), _
0, _
VarPtr(SFI), _
LenB(SFI), _
SHGFI_ICON _
Or IIf(LargeIcon, SHGFI_LARGEICON, SHGFI_SMALLICON) _
Or IIf(Extension, SHGFI_USEFILEATTRIBUTES, 0)) = 0 Then
Exit Function
End If
If IPictureIID.Data1 = 0 Then
'Initialize once on first call.
With IPictureIID
.Data1 = &H7BF80980
.Data2 = &HBF32
.Data3 = &H101A
.Data4(0) = &H8B
.Data4(1) = &HBB
.Data4(2) = &H0
.Data4(3) = &HAA
.Data4(4) = &H0
.Data4(5) = &H30
.Data4(6) = &HC
.Data4(7) = &HAB
End With
End If
With Desc
.cbSizeofStruct = Len(Desc)
.picType = vbPicTypeIcon
.hIcon = SFI.hIcon
End With
If OleCreatePictureIndirect(VarPtr(Desc), _
VarPtr(IPictureIID), _
True, _
GetAssocIcon) <> S_OK Then
Set GetAssocIcon = Nothing
End If
End FunctionBill ID: 1234567890
Menu Details
+-----------+--------+
| Menu Type | Amount |
+-----------+--------+
| Prod1 | 100 |
| Prod2 | 60 |
| Prod3 | 75 |
+-----------+--------+
Service Details
+--------------+------+
| Service Name | Cost |
+--------------+------+
| Service1 | 15 |
| Service2 | 17 |
+--------------+------+
Extra Details
+-------------+------+
| Description | Cost |
+-------------+------+
| Extra1 | 11 |
| Extra2 | 12 |
+-------------+------+
Total Amount: $xxxxBCryptDeriveKey(hAgreedSecret, StrPtr(BCRYPT_KDF_HASH), VarPtr(ParameterList), VarPtr(bAgreedSecret(0)), cbAgreedSecret, cbAgreedSecret, 0)