Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Can a MAKELANGID script be created using VB Script?

Posted on 2013-06-26
3
Medium Priority
?
367 Views
Last Modified: 2013-06-27
How would this code be converted into a VB Script?

Public Const LANG_KAZAK                       As Integer = &H3F
Public Const LANG_RUSSIAN                     As Integer = &H19
Public Const LANG_ENGLISH                     As Integer = &H9
Public Const SUBLANG_ENGLISH_US               As Integer = &H1     ' // English (USA)

Public Function MAKELANGID (ByVal usPrimaryLanguage As Integer, ByVal usSubLanguage _
            As Integer) As Long
      MAKELANGID = (usSubLanguage * 1024) Or usPrimaryLanguage
End Function
0
Comment
Question by:tconingford
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 54

Accepted Solution

by:
Scott Fell,  EE MVE earned 2000 total points
ID: 39281730
I'm only guessing about the function.  

LANG_KAZAK           =63'            As Integer = &H3F 
LANG_RUSSIAN         =25'            As Integer = &H19 
LANG_ENGLISH         =9'            As Integer = &H9 
SUBLANG_ENGLISH_US   =1'            As Integer = &H1     ' // English (USA)

'Submit as x = MAKELANGID(1,"") or x = MAKELANGID("",1)    
Function MAKELANGID (usPrimaryLanguage,usSubLanguage)
      if  usPrimaryLanguage<>"" then
      	MAKELANGID = usPrimaryLanguage
      	else
      	MAKELANGID = (cdbl(usSubLanguage) * 1024)
      end if 
End Function

Open in new window

0
 
LVL 54

Expert Comment

by:Scott Fell, EE MVE
ID: 39282712
I'm glad it worked out.  thanks for the points!
0

Featured Post

Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
How many times a day do you open, acknowledge, or close an IT incident? What’s your process? Do you have a process depending on the incident, systems involved, and other factors? New Relic Alerts gives you options for how you interact with notifica…
This tutorial covers a step-by-step guide to install VisualVM launcher in eclipse.
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…

609 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question