Click here to Skip to main content
15,910,981 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Multilingual support Pin
S.S. Ahmed6-Nov-01 18:51
S.S. Ahmed6-Nov-01 18:51 
GeneralRe: Multilingual support Pin
Colin Bowern6-Nov-01 19:07
Colin Bowern6-Nov-01 19:07 
GeneralRe: Multilingual support Pin
S.S. Ahmed7-Nov-01 18:37
S.S. Ahmed7-Nov-01 18:37 
GeneralKB Article Q72918 Pin
cyberstrategist5-Nov-01 7:26
cyberstrategist5-Nov-01 7:26 
GeneralRe: KB Article Q72918 Pin
Bill Wilson28-Nov-01 8:57
Bill Wilson28-Nov-01 8:57 
GeneralVB programming job Pin
Sam Richardson4-Nov-01 13:53
Sam Richardson4-Nov-01 13:53 
QuestionHow to load DLL in vb ?? URGENT !!!! Pin
3-Nov-01 10:20
suss3-Nov-01 10:20 
AnswerRe: How to load DLL in vb ?? URGENT !!!! Pin
S.S. Ahmed6-Nov-01 18:57
S.S. Ahmed6-Nov-01 18:57 
Have a look at the code below, this is one way of loading a DLL in VB. Use the loadlibrary function to load the dll.

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
(ByVal lpLibFileName As String) As Long
Private Declare Function LoadString Lib "user32" Alias "LoadStringA" _
(ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, _
ByVal nBufferMax As Long) As Long
Private Sub Form_Load()
Dim hInst As Long, lResult As Long, x As Long
Dim LCID As Long, sLcid As String
Dim resString As String * 255
Dim sCodePage As String

sCodePage = String$(16, " ")
Label1.AutoSize = True
Label1.Caption = ""

LCID = GetThreadLocale() 'Get Current locale
sLcid = Hex$(Trim$(CStr(LCID))) 'Convert to Hex
' Display decimal value of the LCID (Hex in Parentheses)
Form1.Caption = "LCID " & LCID & " (" & sLcid & ")"
x = GetLocaleInfo(LCID, LOCALE_IDEFAULTANSICODEPAGE, _
sCodePage, Len(sCodePage)) 'Get code page
sCodePage = StripNullTerminator(sCodePage)
' Load dll with string table resource.
' Might need to change path for the resdll.
hInst = LoadLibrary("resdll" & sLcid & ".dll")

' Get string with ID 101.
lResult = LoadString(hInst, 101, resString, 255)
With Label1.Font
.Name = "Lucida Sans Unicode"
.Size = 14
.Charset = GetCharSet(sCodePage) 'Convert code page to charset
End With
' Display the localized string.
Label1.Caption = resString
End Sub

S.S. Ahmed
ss_ahmed1@hotmail.com
http://glowbutton.faithweb.com
GeneralBackup files from Visual Basic Pin
3-Nov-01 2:00
suss3-Nov-01 2:00 
GeneralUsername that accessed a file last Pin
SirTwist2-Nov-01 3:16
SirTwist2-Nov-01 3:16 
GeneralRe: Username that accessed a file last Pin
Bill Wilson28-Nov-01 8:53
Bill Wilson28-Nov-01 8:53 
GeneralDifferent colors to tabs in tab ctrl Pin
Imran Farooqui2-Nov-01 1:36
Imran Farooqui2-Nov-01 1:36 
QuestionANYONE CAN HELP ME ? Pin
2-Nov-01 1:17
suss2-Nov-01 1:17 
AnswerRe: ANYONE CAN HELP ME ? Pin
Nick Parker19-Nov-01 11:28
protectorNick Parker19-Nov-01 11:28 
Question(WYSIWYG Report writer) How to place a DataReport in design mode on a form at Runtime?? Pin
ananth_rs30-Oct-01 6:21
ananth_rs30-Oct-01 6:21 
AnswerRe: (WYSIWYG Report writer) How to place a DataReport in design mode on a form at Runtime?? Pin
Jon Gohr2-Nov-01 6:54
Jon Gohr2-Nov-01 6:54 
AnswerRe: (WYSIWYG Report writer) How to place a DataReport in design mode on a form at Runtime?? Pin
S.S. Ahmed6-Nov-01 19:00
S.S. Ahmed6-Nov-01 19:00 
QuestionNeed Graphics for your Project? Pin
30-Oct-01 2:36
suss30-Oct-01 2:36 
GeneralAppointments Pin
29-Oct-01 12:00
suss29-Oct-01 12:00 
GeneralPrinting in draft mode in VB Pin
Deepak Satam29-Oct-01 8:01
Deepak Satam29-Oct-01 8:01 
GeneralRe: Printing in draft mode in VB Pin
Derec Roofie12-Nov-02 6:16
Derec Roofie12-Nov-02 6:16 
Generalcommand/buttons help- send a character to a text box HELP!!! Pin
29-Oct-01 1:11
suss29-Oct-01 1:11 
GeneralRe: command/buttons help- send a character to a text box HELP!!! Pin
1-Nov-01 11:22
suss1-Nov-01 11:22 
GeneralA Challanging JOB Pin
28-Oct-01 18:20
suss28-Oct-01 18:20 
GeneralRe: A Challanging JOB Pin
Michael P Butler29-Oct-01 1:34
Michael P Butler29-Oct-01 1:34 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.