双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

谁帮我做一个在win98下快速切换“256色”和“真彩色” 的小程序！

2008-03-23 09:14:18 188 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

kowloons 墨衍会员 · AI 创作全网分发关注 + 加入社区

经典怀旧游戏《血战上海滩》Win10兼容性解决方案全解析本文全面解析了经典怀旧游戏《血战上海滩》在Win10系统上的兼容性问题及解决方案。针对游戏因DirectX版本、系统权限和色彩模式差异导致的闪退、黑屏等问题，提供了三种有效方法：使用系统自带的程序兼容性疑难解答、利用DxWnd窗口化工具进行深度修复，以及通过搭建Windows XP虚拟机实现最稳定运行。文章还包含详细的安装排雷指南，帮助玩家顺利重温经典。阅读详情

由于工作需要，在win98上经常需要在256色和真彩色之间切换！而有些人在操作时，往往不留心会切换成过高分辨率，导致显示器不正常，所以为了安全方便，我需要找这样一款软件，能快速切换这2种工作环境的！谁帮我写一个，最好是运行一次，切换一下，什么也不用点，只给点提示就行了！谢谢VB版的朋友，帮我做一个吧，由于本人不会VB，只好摆脱你们了！

...全文

86BOX 6.0 硬件模拟器：精准复现老系统与旧软件运行环境指南虚拟机技术通过软件模拟计算机硬件环境，为运行不同操作系统和软件提供了隔离且可复现的平台。其核心原理在于对CPU、内存、存储和I/O设备的虚拟化抽象。这项技术的价值在于极大地提升了软件兼容性测试、系统迁移和遗留应用维护的效率。在软件开发和系统运维领域，虚拟机常用于构建测试环境、隔离应用和保存特定系统状态。然而，当需求从运行现代系统转向精确复现历史硬件以兼容特定旧软件时，通用虚拟机在硬件兼容性上可能力有不逮。此时，专注于硬件模拟的解决方案成为关键。本文聚焦于86BOX 6.0这一硬件模拟器，它通过精确模拟80年阅读详情

kowloons

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

kowloons 2008-03-23

打赏
举报

晕死的！上一楼中，请去掉代码的开头和结尾：[code=VB6] 、[/code]



Option Explicit 

  Private Declare Function EnumDisplaySettings Lib "user32" Alias _ 

          "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, _ 

          ByVal iModeNum As Long, lpDevMode As Any) As Long 

     

  Private Declare Function ChangeDisplaySettings Lib "user32" Alias _ 

          "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long 

  Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _ 

                                      ByVal dwReserved As Long) As Long 

     

  Const EWX_REBOOT = 2                           '注释：   重开机 

  Const CCDEVICENAME = 32 

  Const CCFORMNAME = 32 

     

  Const DM_BITSPERPEL = &H40000 

  Const DISP_CHANGE_SUCCESSFUL = 0 

  Const DISP_CHANGE_RESTART = 1 

  Const CDS_UPDATEREGISTRY = 1 

  Private Type DEVMODE 

            dmDeviceName   As String * CCDEVICENAME 

            dmSpecVersion   As Integer 

            dmDriverVersion   As Integer 

            dmSize   As Integer 

            dmDriverExtra   As Integer 

     

            dmFields   As Long 

            dmOrientation   As Integer 

            dmPaperSize   As Integer 

            dmPaperLength   As Integer 

            dmPaperWidth   As Integer 

            dmScale   As Integer 

            dmCopies   As Integer 

            dmDefaultSource   As Integer 

            dmPrintQuality   As Integer 

            dmColor   As Integer 

            dmDuplex   As Integer 

            dmYResolution   As Integer 

            dmTTOption   As Integer 

            dmCollate   As Integer 

     

            dmFormName   As String * CCFORMNAME 

            dmUnusedPadding   As Integer 

            dmBitsPerPel   As Integer 

            dmPelsWidth   As Long 

            dmPelsHeight   As Long 

            dmDisplayFlags   As Long 

            dmDisplayFrequency   As Long 

  End Type 

  Private DevM     As DEVMODE 

  Private Sub Command1_Click() 

            Dim a     As Boolean 

            Dim i     As Long 

            Dim b     As Long 

            Dim ans     As Long 

            a = EnumDisplaySettings(0, 0, DevM)           '   注释：Initial   Setting 

            DevM.dmBitsPerPel = 8       '注释：设定成256色 

            DevM.dmFields = DM_BITSPERPEL 

            b = ChangeDisplaySettings(DevM, 0) 

            If b = DISP_CHANGE_RESTART Then 

                  ans = MsgBox("要重开机设定才能完成，重开？", vbOKCancel) 

                  If ans = 1 Then 

                        b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) 

                        Call ExitWindowsEx(EWX_REBOOT, 0) 

                  End If 

            Else 

                  If b  <> DISP_CHANGE_SUCCESSFUL Then 

                        Call MsgBox("设定有误", vbCritical) 

                  End If 

            End If 

  End Sub 



Private Sub Command2_Click() 

            Dim a     As Boolean 

            Dim i     As Long 

            Dim b     As Long 

            Dim ans     As Long 

            a = EnumDisplaySettings(0, 0, DevM)           '   注释：Initial   Setting 

            DevM.dmBitsPerPel = 32       '注释：设定成256色 

            DevM.dmFields = DM_BITSPERPEL 

            b = ChangeDisplaySettings(DevM, 0) 

            If b = DISP_CHANGE_RESTART Then 

                  ans = MsgBox("要重开机设定才能完成，重开？", vbOKCancel) 

                  If ans = 1 Then 

                        b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY) 

                        Call ExitWindowsEx(EWX_REBOOT, 0) 

                  End If 

            Else 

                  If b  <> DISP_CHANGE_SUCCESSFUL Then 

                        Call MsgBox("设定有误", vbCritical) 

                  End If 

            End If 

End Sub

qiu5208 2008-03-23

打赏
举报

学习，收藏。

kowloons 2008-03-23

打赏
举报

求人不如求己！我自己解决了，上华军下载一个VB6精简版，然后在窗体拖上放2个按钮：

清空所有代码，贴入以下代码：

[code=VB6] Option Explicit
Private Declare Function EnumDisplaySettings Lib "user32" Alias _
"EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, _
ByVal iModeNum As Long, lpDevMode As Any) As Long

Private Declare Function ChangeDisplaySettings Lib "user32" Alias _
"ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long

Const EWX_REBOOT = 2 '注释：重开机
Const CCDEVICENAME = 32
Const CCFORMNAME = 32

Const DM_BITSPERPEL = &H40000
Const DISP_CHANGE_SUCCESSFUL = 0
Const DISP_CHANGE_RESTART = 1
Const CDS_UPDATEREGISTRY = 1
Private Type DEVMODE
dmDeviceName As String * CCDEVICENAME
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer

dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperLength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmYResolution As Integer
dmTTOption As Integer
dmCollate As Integer

dmFormName As String * CCFORMNAME
dmUnusedPadding As Integer
dmBitsPerPel As Integer
dmPelsWidth As Long
dmPelsHeight As Long
dmDisplayFlags As Long
dmDisplayFrequency As Long
End Type
Private DevM As DEVMODE
Private Sub Command1_Click()
Dim a As Boolean
Dim i As Long
Dim b As Long
Dim ans As Long
a = EnumDisplaySettings(0, 0, DevM) ' 注释：Initial Setting
DevM.dmBitsPerPel = 8 '注释：设定成256色
DevM.dmFields = DM_BITSPERPEL
b = ChangeDisplaySettings(DevM, 0)
If b = DISP_CHANGE_RESTART Then
ans = MsgBox("要重开机设定才能完成，重开？", vbOKCancel)
If ans = 1 Then
b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
Call ExitWindowsEx(EWX_REBOOT, 0)
End If
Else
If b <> DISP_CHANGE_SUCCESSFUL Then
Call MsgBox("设定有误", vbCritical)
End If
End If
End Sub

Private Sub Command2_Click()
Dim a As Boolean
Dim i As Long
Dim b As Long
Dim ans As Long
a = EnumDisplaySettings(0, 0, DevM) ' 注释：Initial Setting
DevM.dmBitsPerPel = 32 '注释：设定成256色
DevM.dmFields = DM_BITSPERPEL
b = ChangeDisplaySettings(DevM, 0)
If b = DISP_CHANGE_RESTART Then
ans = MsgBox("要重开机设定才能完成，重开？", vbOKCancel)
If ans = 1 Then
b = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)
Call ExitWindowsEx(EWX_REBOOT, 0)
End If
Else
If b <> DISP_CHANGE_SUCCESSFUL Then
Call MsgBox("设定有误", vbCritical)
End If
End If
End Sub

[/code]

qiu5208 2008-03-23

打赏
举报

可以调用API函数实现。

✦双11狂欢大促✦

谁帮我做一个在win98下快速切换“256色”和“真彩色” 的小程序！

相关推荐

双11狂欢大促