帮我看看错在哪里,好吗 =============================Private Declare Sub CopyMemoryH2S Lib "kernel32" Alias _ "RtlMoveMemory" (ByVal dst As String, ByVal _ src As Long, ByVal SIZE As Long) Private Declare Sub CopyMemoryS2H Lib "kernel32" Alias _ "RtlMoveMemory" (ByVal dst As Long, ByVal src _ As String, ByVal SIZE As Long)Private Declare Function GlobalAlloc Lib "kernel32" (ByVal _ wFlags As Long, ByVal dwBytes As Long) As Long Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem _ As Long) As LongConst GMEM_FIXED = &H0Private Sub Command1_Click() Dim mHandle As Long Dim bstr As String * 256
astr = Left$(Text1.Text, 255) '分配一个300字节的内存块 mHandle = GlobalAlloc(GMEM_FIXED, 102401) '将内存块的内容拷贝到字符串中 CopyMemoryH2S bstr, mHandle, 102400 GlobalFree mHandle End Sub
搂主要调api吧,用space就可以了 dim a as string a=space(102400) '这样会分配100k个空格 a=string(102400,"a") '这样会分配100k个a
感谢bdhh,这个真的是救命的啊
dim a as string a=space(102400) '这样会分配100k个空格 a=string(102400,"a") '这样会分配100k个a谢楼上的楼上~ 我也正找呢~
=============================Private Declare Sub CopyMemoryH2S Lib "kernel32" Alias _
"RtlMoveMemory" (ByVal dst As String, ByVal _
src As Long, ByVal SIZE As Long)
Private Declare Sub CopyMemoryS2H Lib "kernel32" Alias _
"RtlMoveMemory" (ByVal dst As Long, ByVal src _
As String, ByVal SIZE As Long)Private Declare Function GlobalAlloc Lib "kernel32" (ByVal _
wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem _
As Long) As LongConst GMEM_FIXED = &H0Private Sub Command1_Click()
Dim mHandle As Long
Dim bstr As String * 256
astr = Left$(Text1.Text, 255)
'分配一个300字节的内存块
mHandle = GlobalAlloc(GMEM_FIXED, 102401)
'将内存块的内容拷贝到字符串中
CopyMemoryH2S bstr, mHandle, 102400
GlobalFree mHandle
End Sub
dim a as string
a=space(102400) '这样会分配100k个空格
a=string(102400,"a") '这样会分配100k个a
a=space(102400) '这样会分配100k个空格
a=string(102400,"a") '这样会分配100k个a谢楼上的楼上~
我也正找呢~