编程背景墙

① vb6编程更换背景

以下代码可以达到你的要求:
(可以定时更换桌面背景)

Private Sub Timer1_Timer() '一分钟循环一次
Dim FileName As String
Dim Ret As Long
Dim MyValue As Integer

If ListFile.ListCount > 0 And (TimeCount Mod TimeValue) = 0 Then '更换为选定的墙纸

If Option1.Value = True Then '顺序更换
If FileNum > ListFile.ListCount Then FileNum = 1
FileName = ListFile.List(FileNum - 1)
FileNum = FileNum + 1
ElseIf Option2.Value = True Then '随机更换
Randomize ' 对随机数生成器做初始化的动作
MyValue = Int(ListFile.ListCount * Rnd) ' 生成 0 到 LISTBOX中数目和(ListCount-1个)之间的随机数值。
FileName = ListFile.List(MyValue)
End If

If fs.FileExists(FileName) Then '文件是否存在
If Option3.Value = True Then '平铺
rc = RegOpenKeyEx(HKEY_CURRENT_USER, gREGKEYWallPaper, 0, KEY_ALL_ACCESS, hKey) '打开相应注册键值
rc = RegSetValueEx(hKey, "TileWallpaper", 0, REG_SZ, ByVal "1", 2) '写入相应键值信息
rc = RegSetValueEx(hKey, "WallpaperStyle", 0, REG_SZ, ByVal "0", 2) '写入相应键值信息

Ret = WritePrivateProfileString("Desktop", "Wallpaper", FileName, "Win.ini") '更换结果写入到Win.ini中相应相置
Ret = WritePrivateProfileString("Desktop", "TileWallpaper", "1", "Win.ini") '更换结果写入到Win.ini中相应相置
Ret = WritePrivateProfileString("Desktop", "WallpaperStyle", "0", "Win.ini") '更换结果写入到Win.ini中相应相置

Ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, ByVal FileName, SPIF_UPDATEINIFILE) '更新系统参数信息
ElseIf Option4.Value = True Then '拉伸
rc = RegOpenKeyEx(HKEY_CURRENT_USER, gREGKEYWallPaper, 0, KEY_ALL_ACCESS, hKey) '打开相应注册键值
rc = RegSetValueEx(hKey, "TileWallpaper", 0, REG_SZ, ByVal "0", 2) '写入相应键值信息
rc = RegSetValueEx(hKey, "WallpaperStyle", 0, REG_SZ, ByVal "2", 2) '写入相应键值信息

Ret = WritePrivateProfileString("Desktop", "Wallpaper", FileName, "Win.ini") '更换结果写入到Win.ini中相应相置
Ret = WritePrivateProfileString("Desktop", "TileWallpaper", "0", "Win.ini") '更换结果写入到Win.ini中相应相置
Ret = WritePrivateProfileString("Desktop", "WallpaperStyle", "2", "Win.ini") '更换结果写入到Win.ini中相应相置

Ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, ByVal FileName, SPIF_UPDATEINIFILE) '更新系统参数信息
ElseIf Option5.Value = True Then '居中
rc = RegOpenKeyEx(HKEY_CURRENT_USER, gREGKEYWallPaper, 0, KEY_ALL_ACCESS, hKey) '打开相应注册键值
rc = RegSetValueEx(hKey, "TileWallpaper", 0, REG_SZ, ByVal "0", 2) '写入相应键值信息
rc = RegSetValueEx(hKey, "WallpaperStyle", 0, REG_SZ, ByVal "0", 2) '写入相应键值信息

Ret = WritePrivateProfileString("Desktop", "Wallpaper", FileName, "Win.ini") '更换结果写入到Win.ini中相应相置
Ret = WritePrivateProfileString("Desktop", "TileWallpaper", "0", "Win.ini") '更换结果写入到Win.ini中相应相置
Ret = WritePrivateProfileString("Desktop", "WallpaperStyle", "0", "Win.ini") '更换结果写入到Win.ini中相应相置

Ret = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, ByVal FileName, SPIF_UPDATEINIFILE) '更新系统参数信息
End If
End If

End If

TimeCount = TimeCount + 1 '因为计数器时间间隔不能大于65535毫秒，故采取此计数法

End Sub

② 如何在编程猫编程墙

1打开编程猫手机客户端编程猫nemo，出现如图所示界面，界面上会显示系统带的示例程序以及我们近期制作的一些程序，点击屏幕下方的创作进行编程设计。
2
打开创作之后进入如图所示界面。左侧是我们可能用到的工具栏，右侧是预览界面，我们可以从左侧工具栏添加角色，添加背景，选择积木按钮，就可以对相应的角色或者背景进行编程。
3
点击积木按钮之后，出现编程界面，在右侧是对应的功能模块，点击模块会出现相应的子选项，我们可以根据需要将积木模块拖动到编程区域。

③ 青少年编程考级照片可不可以更换呢

青少年编程考级照片是可以更换的，只要在报名期间，计算机等级考试中那个照片是可以更换的，但是更换时间你要在开放的报名时间内才可以更换。

④ 坦克大战，用eclipse编程 怎么用代码添加墙壁

用二维数组
int[][] iAry = {{ 1,0,1.0,0,1,0,1},
{ 1,0,1.0,0,1,0,1},
{ 1,0,1.0,0,1,0,1},
{ 1,0,1.0,0,1,0,1}
{ 1,0,1.0,0,1,0,1}
{ 1,0,1.0,0,1,0,1}};

0代表空白(即黑色).1代表墙身(红砖)
一个数组数,绘画墙身的图片固定大小 例如:红砖比例 32*32 :宽32 高32,每画一个图就*32,就能对齐位置了----太详细不好说,自己动动脑
至于你说的子弹碰撞 , 你记录子弹当前位置POS,当子弹POS到达该墙身,就把子弹消除,墙身在iAry中1的值设置为0, 绘画处检测到iAry[i][j] ==0 了,就画空白啦. 明白?

⑤ VC编程，怎样实现怎样设置墙纸

仅供参考：

1、如果墙纸是桌面壁纸的话

2、

voidSetBackGround(CString&backPath)
{
//在设置背景以前需要通过修改注册表，使壁纸拉伸显示
//=======================================
//修改注册表
HANDLEhKEY;//定义hKEY，在程序结束后需要关闭，本应该定义为HKEY，但是不知道为什么提示HKEY没有定义
//估计是头文件的问题，查MSDN发现typedefHANDLEHKEY
LPCTSTRdata_set=_T("ControlPanel\Desktop");
longret0=(::RegOpenKeyEx(HKEY_CURRENT_USER,data_set,0,KEY_WRITE,(PHKEY)&hKEY));//打开注册表，用于修改
if(ret0!=ERROR_SUCCESS)
{
AfxMessageBox(_T("注册表打开失败，请检查您是否有足够的权限"));
return;
}
CStringcs=_T("0");
LPBYTEowner_set=CString_To_LPBYTE(cs);
longret1=::RegSetValueEx((HKEY)hKEY,_T("TileWallpaper"),NULL,REG_SZ,owner_set,2);//修改注册表
if(ret1!=ERROR_SUCCESS)
{
AfxMessageBox(_T("注册表修改失败，请检查您是否有足够的权限"));
return;
}
cs=_T("2");
owner_set=CString_To_LPBYTE(cs);
ret1=::RegSetValueEx((HKEY)hKEY,_T("WallpaperStyle"),NULL,REG_SZ,owner_set,2);//修改注册表
if(ret1!=ERROR_SUCCESS)
{
AfxMessageBox(_T("注册表修改失败，请检查您是否有足够的权限"));
return;
}

SystemParametersInfo(SPI_SETDESKWALLPAPER,backPath.GetLength(),backPath.GetBuffer(backPath.GetLength()),//修改壁纸
SPIF_UPDATEINIFILE+SPIF_SENDWININICHANGE);
backPath.ReleaseBuffer();
}