帮助将变量和图像保存到同一文件中.

问题描述

我正在为学校的老师创建一个类似于《危险》的游戏，以便在教室环境中使用.我正在使用该程序，但她还要求该程序能够显示每个问题的图片.到目前为止，我正在使用StreamWriter和StreamReader保存游戏变量的值，但是对于如何将图片包含到同一文件中，我感到很困惑.我浏览了所有文章，但是没有运气能找到我真正想要的东西.我唯一能想到的解决方案是将她想要的每张图片复制到一个新目录中，并将该图片的位置保存到我已经创建的文本文件中，但这并不是我想要的方式很多可以删除内容的区域.也许有一种将文本和图像文件组合成单独文件(如Zip文件)的方法?我对VB还是很陌生，因此将不胜感激.作为参考，我附加了以下两个子例程，用于读写文本文件.

 私有  Sub  SaveFileTo()
         Dim  sfd  As  新建 SaveFileDialog()

        sfd.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        sfd.Filter = "  Jeopardy Games | * .jpd" 
        sfd.DefaultExt = "  jpd" 
        如果 sfd.ShowDialog(我)= Windows.Forms.DialogResult.OK 和 sfd.FileName.Length>  0  然后
            如果 File.Exists(sfd.FileName)然后
                如果 MsgBox(" 文件已存在！您要覆盖此文件?"，MsgBoxStyle.YesNoCancel + MsgBoxStyle.Question，"  文件已存在！")= MsgBoxResult.Ok 然后
                    FileName = sfd.FileName
                    WriteFile()
                结束 如果
            其他
                FileName = sfd.FileName
                WriteFile()
            结束 如果

        结束 如果

    结束 子 

 私有  Sub  WriteFile()
         Dim  i  As  简短

        使用 sw 使用 StreamWriter = 新 StreamWriter(文件名)
            对于 i =  0  要  4 
                sw.WriteLine(主题(i))
            下一步
            对于 i =  0  要  24 
                sw.WriteLine(Jeopardy(i).问题)
                对于 j =  0  要  3 
                    sw.WriteLine(Jeopardy(i).Answer(j))
                    sw.WriteLine(Jeopardy(i).Enable(j))
                    sw.WriteLine(Jeopardy(i).Correct(j))
                下一步
                sw.WriteLine(Jeopardy(i).InfoReady)
                sw.WriteLine(Jeopardy(i).MultAnsw)
            下一步
            sw.WriteLine(NegScore)
            sw.WriteLine(TeamNum)
        结束 使用
    结束 子 

解决方案

这篇关于帮助将变量和图像保存到同一文件中.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！