我试图写一个文件序列化为JSON格式的对象数组.我试图用两种不同的方式写它,如下所示.
ToSerialise[] Obj = new ToSerialise[10];
for (int i = 0; i < 10; i++)
{
Obj[i] = new ToSerialise();
}
//First form of serialising
UnicodeEncoding uniEncoding = new UnicodeEncoding();
String SerialisedOutput;
SerialisedOutput = JsonConvert.SerializeObject(Obj, Formatting.Indented);
FileStream fs1 = new FileStream(@"C:\file1.log", FileMode.CreateNew);
fs1.Write(uniEncoding.GetBytes(SerialisedOutput), 0, uniEncoding.GetByteCount(SerialisedOutput));
fs1.Close();
//Second form of serialising
FileStream fs2 = new FileStream(@"C:\file2.log", FileMode.CreateNew);
StreamWriter sw = new StreamWriter(fs2);
JsonWriter jw = new JsonTextWriter(sw);
JsonSerializer js = new JsonSerializer();
jw.Formatting = Formatting.Indented;
js.Serialize(jw, Obj);
jw.Close();
fs2.Close();
即使两个文件的内容相同,它们也有不同的文件大小.实际上,第一个文件的大小恰好是第二个文件的两倍.我尝试使用textpad比较输出,它说它们非常相似.为什么他们有不同的文件大小？
我在Windows …
我希望用户能够在窗体视图中通过单击按钮更改窗体的高度:
Private Sub btnChangeHeight_Click()
booTall = Not booTall
If booTall Then
lngHeight = 12400 ' (twips)
Else
lngHeight = 1200
End If
Me.Detail.Height = lngHeight
Me.Repaint
Debug.Print Me.Detail.Height
End Sub
高度变化 - Debug.Print这样说,并且当出现时booTall会出现垂直滚动条True. 但表格不会改变其在屏幕上的垂直尺寸.
我也试过这个,没有成功(确保我的按钮在Form标题上):
Me.Detail.Visible = booTall
解决方案似乎取决于表单和表单详细信息部分的属性:可调整大小,自动高度,也许可以增长等等.但我已经摆弄了这些并且没有任何作用.
我理解重叠控件和其他东西可以防止高度调整,所以我将表单缩小到最小的布局.我正在使用Access版本2007/2010.
一些额外的信息: 我实际上正在努力的是两个子表单,上面的(A)和下面的(B),它们可以独立地折叠出视图或展开.这是一个决策表格,上面有很多数据.我想如果我折叠了(A)或(B)的高度,那么CanShrink属性Detail会导致整体形状尺寸发生变化.事实上,我想我几年前使用Access 2003做过这样的事情.至于使用Maximize ...我们将这个表单设置为可重用,多个实例可以打开.
我有一个程序可以搜索代表迷宫的2D列表,如下所示:
####################################
#S# ## ######## # # # # #
# # # # # # #
# # ##### ## ###### # ####### # #
### # ## ## # # # #### #
# # # ####### # ### #E#
####################################
我理解递归错误是什么,但我不知道为什么这个代码会导致它,因为它应该只是导致找到"E".有谁知道这可能会产生错误？
def solve(x,y):
mazeList = loadMaze("sample.maze")
if mazeList[y][x] == "E":
return "YOU'VE SOLVED THE MAZE!"
elif mazeList[y][x+1] == " ": #right
mazeList[y][x+1] = ">"
solve(x+1,y)
elif mazeList[y+1][x] == " ": #down
mazeList[y+1][x] = "v"
solve(x,y+1)
elif mazeList[y][x-1] …我需要一些代码,当取消选中复选框时,它会更改我的表单的背景颜色,并在选中时将其恢复为原始颜色.我选中的复选框代码当前会在选择值时锁定组合框.以下示例
Private Sub AccessKeyNo_AfterUpdate()
If MsgBox("Do you want to assign Access Key " & Me.AccessKeyNo & "?", _
vbYesNo) = vbYes Then
Me.GuestAccessKeyID = Me.AccessKeyNo
If Me.Dirty Then Me.Dirty = False
Me.AccessKeyNo.Requery
Me.AccessKeyNo = Null
Me.MyCheckBox = IsNull(Me.GuestAccessKeyID)
End If
End Sub
Access 2003中的以下例程生成错误7961 - 我的数据库'找不到该模块.但它只在某些模块上实现.哪些模块失败是一致的.
怎么了？
Private Sub DoReplace()
Dim obj As AccessObject
For Each obj In CurrentProject.AllModules
Debug.Print ModuleType(obj.Name) & " " & obj.Name
Next obj
End Sub
Public Function ModuleType(ByVal ModuleName As String) As Variant
On Error GoTo errHandler
Dim mdl As Module
Set mdl = Modules(ModuleName)
ModuleType = mdl.Type
ModuleType = Switch(ModuleType = 0, "std ", ModuleType = 1, "class ")
Set mdl = Nothing
errExit: Exit Function
errHandler:
ModuleType = "Err " & Err.Number '7961
Resume errExit …任何人都知道为什么我的jQuery点击不起作用？
它附加到超链接.
jQuery(function ($) {
$(".delete").click(function(e) {
alert("Hello");
});
var socket = io.connect();
var $messageForm = $('#sendmessage');
var $messageTitle = $('#title');
var $messageBox = $('#message');
var $chat = $('#chat');
$messageForm.click(function (e) {
if ($.trim($("#title").val()).length === 0) {
alert('You must provide valid input');
$messageTitle.val('');
$messageBox.val('');
return false;
}
if ($.trim($("#message").val()).length === 0) {
alert('You must provide valid input');
$messageTitle.val('');
$messageBox.val('');
return false;
} else {
e.preventDefault();
socket.emit('send message',
'<b>' + $messageTitle.val() + '</b>' + ' - '
+ $messageBox.val() + ' ' + '[' …