|
Thanks! Good functions!
Basically I wanted to know how to "Left / Right Shift" a number but the above functions will also come in handy. I will Post here how to do Shifts.
To Right Shift, simply Divide by (2 ^ [No of Bits]). For example, to Right Shift 16Bits:
Public Function ShiftRight(ByVal Value as Long) As Long
Return (Value / (2 ^ 16))
End Function
To Left Shift, simply do the opposite and Multiply by (2 ^ [No of Bits]).
Public Function ShiftLeft(ByVal Value as Long) As Long
Return (Value * (2 ^ 16))
End Function
The good news is that in VB.NET 2003, the Left / Right Shift operators will become standard. So now the above Functions would be simplified like this:
Public Function ShiftLeft(ByVal Value as Long) As Long
Return (Value << 16)
End Function
Of course, you really wouldn't need a Function for it anymore in .NET 2003! 
|
|
|
|
|
Glad you like them! That is the cByteFns class from my Data dll.
Do unto others as you would have them do unto you - Jesus
An eye for an eye only makes the whole world blind - Mahatma Gandhi
|
|
|
|
|
I know MS (FINALLY) added in lazy evaluation versions of And (AndAlso) and Or (OrElse). Have they perchance introduced a lazy eval version of the ternary-operator function (Iif)?
Thats one thing i sorely miss from the C/Java world is the nice ?: operator. Iif can sort of emulate it, but Iif always evaluates both conditions (true AND false)... where as the ?: one only evaluates which ever one is selected by the condition. The Non-Lazy Iif is all but useless for the most very simplest simplest basic cases.
Thanks in advance
|
|
|
|
|
Whosit wrote:
Thats one thing i sorely miss from the C/Java world is the nice ?: operator. Iif can sort of emulate it, but Iif always evaluates both conditions (true AND false)... where as the ?: one only evaluates which ever one is selected by the condition. The Non-Lazy Iif is all but useless for the most very simplest simplest basic cases.
I suspect Iif is implemented as a function. See, the worst thing about Iif is that it return an object, and if Option Strict is On, you'll need to cast, even if both types are correct.
It's not the fall that kills you: it's the sudden stop - Down by Law, Jim Jamursch (1986)
|
|
|
|
|
Ha! That's not the worst thing about "IIF". The worst thing is that it tries to Evaluate both Expressions before returning a Value. What it should do is only Evaluate the Expression and then Return the Value that is absolutely neccessary! For example, you can never do this:
Dim MyObject As Object = Nothing
rsData.Fields("MyField").Value = IIF(IsNothing(MyObject), "", MyObject.Name)
This will always give you an Error because MyObject is nothing when it tries to Evaluate "MyObject.Name". So I ask...why does it do that? 
|
|
|
|
|
Because IIf is not an operator, it's a function, defined like this:
Function IIf(Byval x as boolean, Byval o1 as object, Byval o2 as object) as Object
If x then
Return o1
Else
Return o2
End if
End Function
See?
It's not the fall that kills you: it's the sudden stop - Down by Law, Jim Jamursch (1986)
|
|
|
|
|
Yes, True! I wonder if there is a better way to accomplish what I was explaining previously??
|
|
|
|
|
1. How do you access the number of pages the document has?
2. How Do you scroll between the pages?
Please Answer!!!!
I'm using the Printpreviewcontrol to make my own printpreview.
/Fleischen
|
|
|
|
|
We have an Access database that is used here at my company. We have references to Microsoft Word and Excel. The problem is that not everyone here at the company has the same version of Word and Excel. Everyone has been told that they should not be doing developing work in the database, but people still are because the references to the libraries keep getting updated to different versions. We already have people entering in a log in, is there any way that I can detect (using code) when references get changed? Then I could link it back to the user and find out who is developing when they should not be. Thanks for your help!
Kogorman
|
|
|
|
|
No, your best best is to Code using "Late Binding" methods. All you have to do is get rid of your References when you are sure that the Code works, then Change every Variable to Type "Object". This way it will work no matter what Version of MS Office plus you can trap Errors to determine if Office is not installed.
For example:
On Error Goto ErrHandler
Dim xlApp As Excel.Application 'Error will Occur here when not installed
Set xlApp = New Excel.Application
ErrHandler:
If (Err.Number <> 0) Then
'Of course, determine the Correct Error Number for this...
MsgBox "Excel is not Installed!"
End If
Now, change it to this after removing all References to Excel:
On Error Goto ErrHandler
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application") 'Error will Occur here when not installed
ErrHandler:
If (Err.Number <> 0) Then
'Of course, determine the Correct Error Number for this...
MsgBox "Excel is not Installed!"
End If
|
|
|
|
|
I all,
I want to convert a structure from VB to VB.NET and I don´t know how specify the max length of an string...
Sample VB 6.0:
------------------------------------
Public Type YY
XX As String * 10
End Type
-------------------------------------
Code in VB 7.0:
------------------------------------
Structure YY
XX As String '<--- ¿How could I do it?
End Structure
-------------------------------------
Thanks all
"On the 8th day, God started debugging"
|
|
|
|
|
Private Structure Test
<VBFixedString(25)> Dim MyString As String
End Structure
|
|
|
|
|
Ok, that didn't Format correctly at all! Try this:
Private Structure Test
<VBFixedString(25)> Dim MyString As String
End Structure
|
|
|
|
|
Ok thanks Mikasa, I found it in MSDN.
Regards
"On the 8th day, God started debugging"
|
|
|
|
|
How can i use a dll in VB which is written in VC++ ???
please help me as soon as possible.
thanks 
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Hello,
Add a declaration of functions which has public scope(those which you want to use in your VB project). Or you can add the reference of your DLL in Project/Reference by choosing it.
Have fun.;)
Regards,
Vilas Shewale
|
|
|
|
|
Firstly, Thanks for your fast reply.
I´m a beginner in both lenguages, VB and English too.
So, i tried by the Reference method ,but i couldn´t do , because when i select the DLL VB show me a message :"Can´t add the reference to the specified File "
The DLL isn´t registred, Can be the problem?
how can i do the declaration?
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Hi
You are using a simple dll, not a COM dll. When you are trying import a basic dll wihtout interface, you can´t reference using your VB tool development.
You need inport it by code.
VB.NET sample:
--------------------------------
<dllimport("libraryname.dll")> _
Public Shared Function FunctionName(ByRef Param1 As Integer, _
ByRef Param2 As String, _
ByVal Param3 As Integer) As Long
End Function
--------------------------------
Regards
"On the 8th day, God started debugging"
|
|
|
|
|
i´m using VB6, and It don´t have "Shared".
I only want use a simple DLL from this example :http://www.codeproject.com/dll/BeginnerDLL.asp
But I don´t know how import the dll, and where i have to copy the dll (because i don´t want registrer it )
i´m so confused
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Martin_Viet wrote:
But I don´t know how import the dll, and where i have to copy the dll (because i don´t want registrer it )
You can place the .dll in whatever directory you want it in, however you do need to register the .dll. Go to a command prompt and change the directory to the location of the .dll. Once there type (where myFile is the name of the .dll):
regsvr32 myFile.dll
-Nick Parker
|
|
|
|
|
But I found it:
If you do not specify a path for libname, Visual Basic will search for the file in the following order:
1)Directory containing the .exe file
2)Current directory Windows system directory (often but not necessarily Windows\System)
3)Windows directory (not necessarily \Windows)
4)Path environment variable " [Visual Studio 6.0 Help]
So i´m trying to do this :
Public Declare Function SayHello Lib "MyDLL.dll" () As Boolean
But a message error appeared 
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
|
Hi
I´ll explain in spanish, becase I think, you'll understand better the explanation:
1.Necesitas registrar la dll en el sistema, para ello copia la dll al winnt\system32 y desde ahí ejecuta "regsvr32 TuLibreria.dll"
2.Una vez registrado abre el VB y en el menu busca "Proyecto/Referencias"
que abrira una ventana donde puedes examinar y seleccionar la dll.
3.Una vez referenciada, solo has de instanciarla por codigo, como por ejemplo:
Dim ObjDLL As New PuntoDeEntradaDeLaDLL()
Regards and good luck.
"On the 8th day, God started debugging"
|
|
|
|
|
Martin_Viet wrote:
So i´m trying to do this :
Public Declare Function SayHello Lib "MyDLL.dll" () As Boolean
But a message error appeared
The .dll still needs to be registered, then just specify the path to the file. Just by specifying the file's path does not mean you have registered the file, these are two different things.
-Nick Parker
|
|
|
|
|
Hello,
You can try this. Register your DLL with regsvr32 utility.
1> Goto Start Menu. Press run. Type regsvr32 "path of DLL". And just press Ok. You will get the message of registration by Windows.
2> Or, Double Click on the DLL. It will ask you about the program to be open. Choose the regsvr32.exe from Windows directory. Press ok. Windows will register your DLL automatically.
Make sure that you have to place your DLL in the directory which has your project through which you are accessing the DLL code.
Regards,
Vilas Shewale
|
|
|
|
|
very I am pleaced
It has been eassier on this way, which determines that I am going to have to continue practicing languages both (English and VB )thanks and greetings 
el hombre es libre cada vez que elige y eso es lo que lo hace libre
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
