一、问下哦,电脑刻字文件用什么格式保存?x谢谢了.
CORELDRAW做的图保存时
应该存扩展名 *.plt 格式的
也可以用AI存为 *.eps 文件也可编辑
二、酷狗7正式版去广告方法
首先，先退出酷狗7的使用
我们来到酷狗的安装目录下
找一个名为skinres.skn
我先把它改后缀名为.ZIP格式
后解压出来 我可以看见很多的文件
我可以知道原来这个是酷狗的界面图片文件
我们在里面中找一个名为SKinResDef.xml的文件
用记事本对它进行打开就可以了
我们用记事本中的查找“置顶广告”
在它下面的
""
改为
""
保存好了我们点击这个XML直接放到ZIP那个文件的图标上 系统会自动的把这个文件添加到ZIP文件中
接下来我们把后缀名改回来为SKN
把他替换安装目录的同名文件
我们可以运行看看
第一个不见了 (注：出错时需要修复压缩包)
三、VB ShowSave后怎么区分保存的格式
Global Pos As Integer
Global MatchCase As Boolean
Global SearchStr As String
Priva_Click()
'单击“区分大小写”复选框，设置查找方式
If Check1.Value = 1 se = True
Else
MatchCase = False
End If
End Sub
Private Sub Command1_Click()
'单击“查找”按钮的处理过程：
'1--根据是否“区分大小写”进行不同方式地查找
'2--如果找到，显示被找到的字符，否则，提示未找到信息
If MatchCase = True Then '如果以“区s = InStr(Pos + 1, FrmMain.Text1.Text, Text1.Text)
Else
Pos = InStr(Pos + 1, Ft1.Text, Text1.Text, vbTextCompare)
End If
If Pos 0 Then '如果找到字符，则显示之
FrmMain.Text1.SelStart = Pos - 1
FrmMain.Text1.SelLength = Len
Else
MsgBox "没有找到字符 " & Chr$(34) & Text1.Text & Chr$(34)
End If
End Sub
Private Sub Command2_Click()
'单击“取消”按钮，退出“查找”窗体
Unload Me
End Sub
Private Sub Form_体的初始化设置
Pos = 0
If MatchCase = True Then Check1.Value = 1
End Sub
Private Sub Text1_Change()
'当文本框内容发生变化，获取要查找的字符串
SearchStr = Text1.Te Explicit
Dim Modified As Boolim Saved As Boolean '文件是否保存
Dim FPath_Name As String '保存/打开文件的名称
Private Sub Form_Load()
'初始化模块级变量
Modified = False
Saved = False
FPath_Name = ""
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'关闭窗体前，判断文件正文是否被改变，并提示用户保存文件
Dim SaveIt As Integer
If Modified = True Then '正文改变
SaveIt = MsgBox("文件 " & Me.Caption & " 的正文已更改，是否保存更改？", vbYesNoCancel)
'单击“是”按钮，返回6，单击“否”按钮，返回7，单击“取消”按钮，返回2
If SaveIt = 2 Then Cancel = True: Exit Sub
If SaveIt = 6 Then
'打开“另存为”对话框
FrmMain.CommonDialog1.Filter = "Text Files (*.TXT)|*.txt|" & _
"All Files (*.*)|*.*" '设置对话框文件类型
FrmMain.CommonDialog1.Flags = &H4
FrmMain.CommonDialog1.ShowSave
If CommonDialog1.FileName "" Then
'以下代码用于将当前文本框中的内容写入要保存的文件中
Open FrmMain.CommonDialog1.FileName For Output As #1
Print #1, Me.Text1.Text
Close #1
End If
End If
End If
Unload Me '卸载窗体
End Sub
Private Sub mnuCopy_Click()
'单击“复制”命令，将选定文本复制到剪贴板
Clipboard.SetText Text1.SelText
End Sub
Private Sub mnuCut_Click()
'单击“剪切”命令的操作
Clipboard.Clear '清空剪贴板内容
Clipboard.SetText Text1.SelText '设置剪贴板内容为选定文本
Text1.SelText = "" '删除文本框中选定内容
End Sub
Private Sub mnuDelete_Click()
'单击“删除”按钮，将选定的内容设置为空
Text1.SelText = ""
End Sub
Private Sub mnuFont_Click()
'单击“字体”命令，打开“字体”对话框，
'并根据用户的选取，设置文本框的字体格式。
On Error Resume Next '如果出现错误，忽略错误，继续执行
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
CommonDialog1.ShowFont '显示“字体”对话框
'以下过程为根据用户的设置，改变文本框中的字体格式
Text1.FontName = CommonDialog1.FontName '设置字体
Text1.FontBold = CommonDialog1.FontBold '设置是否以粗体显示
Text1.FontItalic = CommonDialog1.FontItalic '设置是否以斜体显示
Text1.FontSize = CommonDialog1.FontSize '设置字号
Text1.FontStrikethru = CommonDialog1.FontStrikethru '设置是否显示删除线
Text1.FontUnderline = CommonDialog1.FontUnderline '设置是否显示下划线
Text1.ForeColor = CommonDialog1.Color '设置字的颜色
End Sub
Private Sub mnuNew_Click()
'单击“新建”命令的处理：
'1--如果当前文件被修改，提示用户保存文件。
'2--初始化表示文件状态的变量，
Dim SaveIt As Integer
