VB调用SHE皮肤的时候，大约一个半小时就“噔”一声闪退

换个皮肤文件

新建一个工程，不写其他代码，只加载皮肤去测试是否闪退

如果2能解决问题 就慢慢用排除法去测试你代码哪里和skin冲突了

将ANSYS宏文件作为子程序进行调用。shell函数为VB提供的一个可执行文件。代码如下：

Dim X

X=Shell("C:\ProgramFiles\AnsysInc\v110\ANSYS\bin\intel\ANSYS110exe -b -p ane3fl -i E:\SADE\VB\ansys txt\dizuotxt -o E:\SADE\VB\ansys txt\dizuoout", vbMinimizedFocus)

其中ane3fl为ANSYS产品特征代码,E:\SADE\VB\ansys txt\dizuotxt为用APDL语言编写的ANSYS输入文件。E:\SADE\VB\ansys txt\dizuoout是输出文件

for 循环语句的问题

Private Sub Command1_Click()

str = "游戏喊话"

For i = 1 To Len(str)

KeyCode = Asc(Mid(str, i, 1))

If KeyCode < 0 Then

' data = StrConv(Mid(str, i, 1), vbFromUnicode)'被注释后同意可以成功

' PostMessage hWnd, &H102, data(0), 0&'被注释后同意可以成功

' PostMessage hWnd, &H102, data(1), 0&'被注释后同意可以成功

Else

PostMessage hWnd, &H102, KeyCode, 0

End If

Next

code

End Sub

把倒数第二个end去掉,测试通过

你的描述属于闪退，造成闪退的绝大部分原因都是因为模块错误造成的。

你可以连续多次双击运行excel，系统会d出停止程序运行窗口，这时点击下方的“错误详情”。

你会看到列出的错误模块名称。

在计算机搜索该模块，找到后剪切它（先不要删除，记好模块位置，剪切出来是万一出其他问题可以再放回去）。

以上就是关于VB调用SHE皮肤的时候，大约一个半小时就“噔”一声闪退全部的内容，包括:VB调用SHE皮肤的时候，大约一个半小时就“噔”一声闪退、用VB调用ANSYS总是闪退、VB 一段代码运行后自动退出,求解等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！