Search:

Something like this?

Option Explicit

Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim I As Integer

If (KeyCode = vbKeyReturn) Then
For I = 0 To...

Try this:

Option Explicit

Private Sub Form_Load()
Dim oDoc As HTMLDocument, szHTML As String, szURL As String, hFile As Integer

szURL = "C:\youtubevid.html"
hFile =...

Maybe create a local hook and intercept and the "drawing" related messages like WM_PAINT and WM_ERASEBACKGROUND and manually call the functions in uxtheme.dll.

This works in VB6:


Option Explicit

Private Declare Function SetSystemVisualStyle Lib "uxtheme.dll" Alias "#65" (ByVal pszFilename As Long, ByVal pszColor As Long, ByVal pszSize As Long, ByVal...

From the menu bar click Project then reference. Select microsoft Shell Controls And Automation from the list. If its not there, click browse and select shell32.dll from Windows\System32 folder.

In...

I found this: http://msdn.microsoft.com/en-us/library/ms994312.aspx#joyofsax_topic5
But if you wanna offer up something, feel free.

So im trying to implement an interface in vb with functions that do not return HRESULTs. On the TLB side I made all the functions return HRESULTs so I can use the Implements keyword in VB. These...

I dont see lFileNum = FreeFile()

Try this:


Option Explicit

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByRef phkResult As Long) As Long
Private...

The transparent area of the Form is completely invisible, all mouse actions go through it.

Try this:

Create a new project.
Set the main form's border style to None
Add a command button in the middle of the form
Add this code:

Option Explicit

Private Declare Function...

Hmmmm.....
What is the error message you're getting? I've been able to compile my app successfully with the tlb reference and it ran ok.

I dont see a problem with using Long since the function...

Try this from API-Guide:


'In general section
Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindowsEx Lib "user32" (ByVal...

To make type libraries, you need to know ODL (Object Description Langiage) and/or IDL (Interface Description Language). IDL is newer, but im used to ODL. Here it is:



//PoluCopyBytes.odl

[
...

This code will submit the form (click the "create account" button) on the signup page. You already know how to fill the fields.


Option Explicit

Private m_bLoadedPage As Boolean

Private Sub...

Oh, you just added the CloseHandle().

*added some code*

Oh, my bad. Lemme type it up.

EDIT:
Just so you know, you can also use the szExeFile member of the PROCESSENTRY32 structure.


Option Explicit

Private Declare Function OpenProcess Lib...

Check out http://www.ex-designz.net/apidetail.asp?api_id=519 and search MSDN for waveInProc as well as waveInAddBuffer.

Put this in a Form

Option Explicit

Private Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As...

Rather than assuming the error length is a maximum length of 1024 and manually checking for the null character (0), why don't you just get the length of the string with lstrlen?


Private Declare...

No problem. However, the text scaling isn't perfect and i cant figure out how to fix it. lol. Anyway, trying replace this line in cmdSave_Click()

Me.Font.Size = nPrevSize + (nPrevSize * (m_sScale...

Its possible especially with GDIPlus. Lemme type up something.

EDIT:
Heres something to get you started. Feel free to ask any questions.

EDIT 2:
Updated the code...

No problem. Resolve the thread.

I've attached a project. Look at it.

Option Explicit


Private Sub Form_Load()
'Add 5 days to the current date (d means days)
Call MsgBox(CStr(DateAdd("d", 5, Date)))
End Sub

Like this?


Select Case 19
Case 1 To 17, 20
'...
End Select

No idea cuz i dont see anything wrong. Have you tried restarting the IDE?

Option Explicit

Private Declare Function GetLogicalDriveStrings Lib "kernel32.dll" Alias "GetLogicalDriveStringsA"...

"control array element 2 doesnt exist" means exactly that. At some point loopval is becoming greater than 1. I suggest you step through your code and use Debug.Assert and Debug.Print

It seems the functions defined in the TLB must return HRESULT. With that said, how is a function supposed to return a long and a HRESULT?

EDIT:
Well, this in ODL:



HRESULT TxGetDC([out,...

Hello.
I'm trying to make a TLB for the ITextHost interface. What ive come up with compiles OK, but when i do the "Implements ITextHost" line, vb isnt letting me define the functions of the...

This is a late reply, however you can easily rip out the rtf features or wait until i put together a ITextHost tlb and implement the RTF functionality in VB.

Can you tell us what the line of code that caused error is?

lol
Right above your first post at the top of the page, click Thread Tools then click mark Thread Resolved
To add to someone's reputation, click Rate this post below their avatar.

No problem. Now, if you don't mind, resolve the thread and share sum love by repping me ;) .

*updated the code above*

Well you can use GetDIBits() to get the actual binary data of the bitmap you receive via printscreen. Im gonna type up something.

This will get you the image bytes so you dont have to do a binary...

You have to compile the X3Button youself as well as the X3RTFPrinter if you're gonna include the windowless rich edit implementation. You need vc++ 2k8 to compile the X3RTFPrinter.dll.

Here's 2 additions:
Requires MSHTML Object Library and the WebBrowser is called wbMain

Waiting for a webpage to load

cNavAndWait

Option Explicit

Private Declare Function GetTickCount...

Here's a command button user control. It's in the finalizing stage but if anyone is interested you can check out the code. It seems to be waaaaaaaayyy more stable when compiled than when in IDE....