如何在按制表符或空格键时将第一个字母变为大写vb 6.0？
我的代码如下
txtFirstName.Text = UCase$(txtFirstName.Text)
但在制表符或空格之后它不会改变
我负责将 VB6 项目移植到 VB.NET 中。在 vb6 中，如果您在与特定变量分开的类中，则可以轻松访问该变量：
Public Class Foo
Public k As Integer
End Class
Public Class Bar
k = 12
End Class
在 VB.NET 中，我的理解是，在您可以在另一个类中使用变量之前，您必须声明它的一个新实例：
Dim foobar As New Foo
这很好，但我必须从不同的类访问这些变量，每次我声明一个新实例时，它都会从我需要的变量中擦除所有旧值。有人可以帮忙吗？我尝试使用 Inherits 语句，但它们提出了许多问题。
谢谢。缺口
即时通讯使用mobitek gsm调制解调器,它使用的源代码是在VB中.现在我想将代码转换为c#.我遇到麻烦的代码是intModemStatus = SMS.ModemInit(frmModem.txtPort.Text, "").之后,代码将通过select case进行如下:
intModemStatus = SMS.ModemInit(frmModem.txtPort.Text, "")
Select Case intModemStatus
Case 0
FrmModem.txtText.Text = "GSM Modem Not Connected!"
'[VB - Module1] frmModem.txtText = "GSM Modem Not Connected!"
Exit Sub
Case 1
FrmModem.txtText.Text = "CONNECTED!"
'[VB - Module1] frmModem.txtText = "GSM Modem Connected!"
Exit Sub
Case 2
FrmModem.txtText.Text = "PIN Required!"
'[VB - Module1] frmModem.txtText = "PIN Required!"
Exit Sub
Case 3
FrmModem.txtText.Text = "Incorrect PIN Entered! Warning after 3 tries of incorrect PIN entered, your …NET等效于vbUnicode UTF32Encoding/UTF32Decoding吗？
我们开始将VB6 WMS应用程序转换为.NET,其中一部分将是手持式扫描仪(例如RF和条形码)MC9090.
微软在Visual Studio 2008之后是否放弃了对Compact Framework的支持？
有哪些选项可用于在此设备上进行开发？
我想将代码从vb6迁移到vb.net.该项目非常基础(不使用dll或组件参考)只是模块
在压缩功能方面,它已经成功.我很开心.但是当解压缩子没有成功.程序挂了.我试过修复它,我发现问题是这样做..退出do..loop语句.
注意:代码在vb6中成功运行.
这是我的解压缩代码
Public Sub Decompress(ByteArray() As Byte)
Dim InpPos As Long
Dim InBitPos As Integer
Dim LowValue As Long
Dim HighValue As Long
Dim RangValue As Long
Dim MidValue As Long
Dim Value As Long
Dim mChar As Byte
Dim i As Integer
Dim Index As Integer
Dim EOF_State As Boolean
Dim TopBit As Long
Dim One(256) As Long
Dim Zero(256) As Long
Call Initiate
LowValue = 0
HighValue = (2 ^ MaxBits) - 1
TopBit = 2 …Public Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
这是我原来的VB6代码和转换后的C#代码
public struct WIN32_FIND_DATA
{
long dwFileAttributes;
FILETIME ftLastAccessTime;
FILETIME ftLastWriteTime;
long nFileSizeHigh;
long nFileSizeLow;
long dwReserved0;
long dwReserved1;
cFileName As String * max_path;
cAlternate As String * 14
}
如何转换cFileName As String * max_path成C#
我被分配了一个项目来替换GoSubs应用程序中的所有内容VBA，因为该应用程序正在切换到VB.net并且GoSubs在那里不受支持。这是原始代码的简化版本：
Sub Main ()
Dim A As String
...
If ConditionX Then A = "Black"
Else A = "White"
End If
...
GoSub Execute
...
Execute:
Call BuiltInSub1 (A)
Call BuiltInSub2 (A)
'where BuiltInSubs are some predefined procedures within the application
...
Return
End Sub
我正在考虑使用 aCall来替换，GoSub如下所示：
Sub Main ()
Dim A As String
If ConditionX Then A = "Black"
Else A = "White"
End If
...
Call …现在我将VB6项目移植到C#并继续收到此错误.似乎无法在命名空间中修复它.
问题:
//Expected class, delegate, enum, interface, or struct
public string GetHostByAddress(long addr)
{
dynamic phe = null;
dynamic Ret = null;
HOSTENT heDestHost = default(HOSTENT);
dynamic hostname = null;
phe = gethostbyaddr(addr, 4, PF_INET);
if (phe) {
MemCopy(heDestHost, phe, hostent_size);
hostname == new String[256, 0];
MemCopy(hostname, heDestHost.h_name, 256);
GetHostByAddress == Strings.Left(hostname, Strings.InStr(hostname, Strings.Chr(0)) - 1);
} else {
GetHostByAddress = WSA_NoName;
}
}
原始方法看起来像这样.
Public Function GetHostByAddress(ByVal addr As Long) As String
Dim phe&, Ret&
Dim heDestHost As HOSTENT …我只是想将VB6函数之一转换为VB.Net,下面是转换语句我面临的问题
Option Strict Off
Option Explicit On
Imports Microsoft.VisualBasic.Compatibility.VB6
Imports System
Imports System.Runtime.InteropServices
Module FunctionCmd_Msg
Public FunCommand_Msg As Fun_CommandMessage = Fun_CommandMessage.CreateInstance()
'Function Command Message
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)> _ _
Public Structure Fun_CommandMessage
<VBFixedString(1)> Public one As String
<VBFixedString(1)> Public two As String
<VBFixedString(3)> Public three As String
Dim five As String
<VBFixedString(8)> Public four As String
Public Shared Function CreateInstance() As Fun_CommandMessage
Dim result As New Fun_CommandMessage
result.one = String.Empty
result.two = String.Empty
result.three = String.Empty
result.four = String.Empty
result.five = …