代码搜索：integer
找到约 10,000 项符合「integer」的源代码
代码结果 10,000
www.eeworm.com/read/215583/15057160
pas s-1.pas
PROGRAM checkletter(input,output);
VAR
y:char;
i:integer;
FUNCTION letter(x:char):integer;
VAR
z,y:set of char;
BEGIN
y:=['a','e','i','o','u','A','E','I','O','U']
www.eeworm.com/read/215298/15065812
txt xitongdenglu.txt
Dim TIM As Integer
Dim mydb As Database
Dim myrs As Recordset
Dim sql As String
Private Sub Form_Activate()
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\kfgl.mdb") '打开数据库
sql = "select
www.eeworm.com/read/214998/15079141
pas winskindlg.pas
unit WinSkinDlg;
{$I Compilers.Inc}
{$WARNINGS OFF}
{$HINTS OFF}
{$RANGECHECKS OFF}
interface
uses windows,Messages,SysUtils,Classes,Graphics,WinSkinMenu,
forms,ExtCtrls;
const
www.eeworm.com/read/214898/15084543
frm 屏保.frm
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BackColor = &H80000007&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 10170
www.eeworm.com/read/214672/15092389
h inheritstack.h
// inheritstack.h
// Data structures for a "stack" -- a Last-In-First-Out list of integers.
//
// We define two separate implementations of stacks, to
// illustrate C++ inheritance.
//
// Copyright (c
www.eeworm.com/read/214443/15100192
bas module1.bas
Attribute VB_Name = "Module1"
Public fMainForm As frmMain
Public gintWZSmode As Integer 'for WZ setup
Public gintGFSmode As Integer 'for GF setup
Public gintKHSmode As Integer 'for KH setup
Publi
www.eeworm.com/read/114100/15111006
txt 如何更改设置textbox的右键菜单.txt
用 下 面 的 语 句 ：
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' Make VB discard the mouse capture.
Text1.Enabled = False
Text1.Ena
www.eeworm.com/read/114100/15111062
txt 如何在文本框中屏蔽掉某些键.txt
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
KeyCode = 0
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As
www.eeworm.com/read/114100/15111105
txt 怎样实现横向拖动一个控件.txt
Dim cX As Single, cY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cX = X
cY = Y
End Sub
Private Sub