正文
vb.net堆栈 vs堆栈
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net中创建类
不熟悉VB,如有不妥的地方请包涵!
Public Class Stack
Dim aryData() As Integer
Sub New(ByVal Num As Integer)
Dim aryData(Num) As Integer
End Sub
Function Pop() As Integer
If (aryData.Length = 0) Then
Return 0
Else
Dim a As Integer
a = aryData(aryData.Length)
aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)
Return a
End If
End Function
Sub Push(ByVal n As Integer)
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
aryData(i) = n
End
Else
Continue For
End If
Next
End Sub
Sub PrintStack()
For Each i As Integer In aryData
If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then
End
Else
Print(aryData(i))
End If
Next
End Sub
End Class
相关问答
Q1: VB.NET做的程序在其它机器上运行时出现问题，求助！
缺少运行库
装上.NETframework
和带上引用的插件（工程属性那有个引用页）
吧
.
Q2: 在vb模块中怎么定义动态数组？
1、声明数组vb.net堆栈的语句vb.net堆栈：
Dim types( ) As integer
2、然后使用ReDim语句来配置数组大小。
ReDim Types(X+1)
3、假设想改变数组大小又不想丢失原来的数据vb.net堆栈，仅仅要在ReDim语句中包括Preservekeyword就能够，典型语句为vb.net堆栈：
ReDa_m PresetVe Types(10，23)
对于多维数组，在使用Preservekeyword时，仅仅能改动最后一维的大小。假设改变其它维，那么将出现执行错误。假设不清楚某维的当前大小，能够使用GetI~ength函数来获取。
扩展资料：
数组的使用：
用For Each来循环遍历一个数组。比如：
Dim x As Integer
F0r Each x In arrayl
Console．WriteLine(x)
Next
在使用数组时还要注意，不仅声明语法有变化，并且在执行时处理方式也有vb.net堆栈了非常大的变化。VB．NET在堆栈中给数组分配地址空间，当向一个方法传递数组类型的参数时，使用的是引用传递而不是值传递。以下是互相传递数组引用的三个方法：
Dim arrayl(3，3)AS Integer
Dim array2 As Integer(，)
Redim array2(3，3)
Dim array3 As Integer(，)={{2，4}，{12，29}}
Q3: VB.NET中，PInvoke 函数 GetWindowThreadProcessId 调用导致堆栈不对称
题主用的是 VB6 时代的 Windows API，那里面的 Long 类型相当于 .NET 里的 Int32，声明 API 时要把所有 Long 类型替换成 Int32 才可以正常使用，否则堆栈溢出。
另外操作内存这种函数需要管理员权限来运行，否则程序会报错甚至崩溃。
Q4: VB.net的默认堆栈有多大？如何修改默认堆栈大小
默认堆栈大小1 MB
具体vb.net堆栈的我也不了解vb.net堆栈，在MSDN上找了到了点东西看看对你有没帮助：
建立新线程指定并线程的最大堆栈大小：
用EDITBIN的/STACK选项：
不行还是在C++那里想办法吧，比如减少堆栈的使用，少用递归之类的。
水平不够就说这些了。
Q5: 求大神修改 vb.net SetWaitableTimer(mlTimer, ft, 0, 0, 0, 0) 导致堆栈不对称 怎么修改?
Imports System.Runtime.InteropServices
Module APIs
StructLayout(LayoutKind.Sequential)
Public Structure FILETIME
Public dwLowDateTime As UInteger
Public dwHighDateTime As UInteger
Public ReadOnly Property Value() As ULong
Get
Return CType(dwHighDateTime 32, ULong) + dwLowDateTime
End Get
End Property
End Structure
Public Delegate Sub TimerCompleteDelegate()
DllImport("kernel32.dll")
Public Function CreateWaitableTimer(lpTimerAttributes As IntPtr, bManualReset As Boolean, lpTimerName As String) As IntPtr
End Function
DllImport("kernel32.dll")
Public Function SetWaitableTimer(hTimer As IntPtr, ByRef ft As Long, lPeriod As Int32, pfnCompletionRoutine As TimerCompleteDelegate, pArgToCompletionRoutine As IntPtr, fResume As Boolean) As Boolean
End Function
Public Function SetWaitableTimer(hTimer As IntPtr, ByRef ft As Long, lPeriod As Int32) As Boolean
Return SetWaitableTimer(hTimer, ft, lPeriod, Nothing, IntPtr.Zero, True)
End Function
End Module
SetWaitableTimer的声明错了
关于vb.net堆栈和vs堆栈的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
